RMO5/3/2 DU POR TST1 AH JUN 19 
RMOS/3/e __ CZRMRAO 3 PICHE 1 OF 2 cory re, 1960 EEE 











CZRNRAO Fiche 2 OF 2 ect, GUS LUal 


BRM05/3/2 





CZRMRAO RMO5S/3/2 DU POR TST 1 


DONO UE WR OO ONO UE WN —ODOONC UFWR 


RG ROR PUPP — - 3 ss es 


29 


B 1 
MACRO V03.01 11-APR-80 14:26:10 PAGE 1 


-REM 2 


Seomnbealenadoes 
PRODUCT CODE:  AC=-F936A-MC 
PRODUCT NAME: CZRMRAQ RMO5S/3/2 DU POR TST 1 
DATE CREATED: APRIL 1980 
MAINTAINER: CX DIAGNOSTIC GROUP 
AUTHOR: MIKE LEAVITT 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SkKOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENI 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NC RESPONSIBILITY FOR THE USE 
Po) pitas OF 11S SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
- 


COPYRIGHT (C) 1980 DIGITAL EQUIPMENT CORPOPATION 
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2.1 


2.2 


2.3 


SEQ 0003 


ABSTRACT 


VERIFY THAT THE RMOS5/3/2 DUAL PORT LOGIC 

NG PROPERLY. ONLY THE CONTROL LOGIC IS TESTED 
HIS PROGRAM; DATA HANDLING IN THE DUAL PORT MODE 

1S NOT TESTED BY THIS PROGRAM. 


BOTH PORTS OF THE DRIVE ARE CABLED 10 THE SAME MASSBUS By 
A SPECIAL ADAPTER CABLE. THIS ARRANGEMENT ALLOWS THE DUAL 
PORT LOGIC TO BE TESTED FROM ONE PDP=11, RH11 OR RH70. 


THIS PROGRAM IS THE FIRST PART OF THE DUAL PORT OPTION 
LOGIC TEST. THE SECOND PART OF THE TEST PERFORMS 
MANUAL INTERVENTION TESTS. 
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REQUIREMENTS 


EQUIPMENT 


PDP-11 PROCESSOR 

16K OF MEMORY 

KW1l-L OR KWll-P CLOCK 

TERMINAL 

RH11 OR RH70 

1 = DISK DRIVE (RMOS, RMO3 OR RMO2) 
RM DUAL PC*T TES? CABLE 


PREREQUISITE PROGRAMS 
RMO5/3/2 DISKLESS DIAGNOSTIC, PART 1 & 2 
RMO5/3/2 FUNCTIONAL TEST, PART 1, 2 & 3 


THE PRELIMINARY PROGRAMS MUST BE RUN TWICE: ONCE FROM 
EACH CONTROLLER (PORT). 


OTHER PROGRAMS 


A. THE OPERATION OF THE ‘'PORT SELECT’ SWITCH IS TESTED 
BY THE SECOND PART OF THE DUAL PORT LOGIC TEST. 


B. DYNAMIC OPERATION GF THE DUAL PORT OPTION IS 
TESTED BY THE RMO5/3/2 PERFORMANCE EXERCISER PROGRAM, 


LOADING PROCEDURES 

THE PROGRAM MAY BE LOADED BY THF ABSOLUTE PAPER TAPE 
LOADER OR IT MAY BE LOADED FROM THE APPROPIATE MEDIA 
USING THE ASSOCIATED 'XXDP" LOADER. THE PROGRAM MAY NOT 
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SEQ 0004 
28 BE INCLUDED IN AN 'XXDP" CHAIN, 
60 
61 
¢ 4. STARTING PROCEDURES 
64 
+4 4.1 STARTING ADDRESSES 
67 A. THE NORMAL STARTING ADDRESS OF THE PROGRAM IS LOCATION 
68 200 (8). STARTING AT THIS ADDRESS ALLOWS THE OPERATOR 
69 TO SELECT (OR RESELECT) THE ADDRESS OF THE DRIVE TO BE 
£9 TESTED. 
72 B. THE RESTART ADDRESS IS LOCATION 204 (8). THE PROGRAM WILL 
7 USE THE CURRENT DRIVE (DCL) ADDRESS. 
75 C. THE PROGRAM CAN BE STARTEL AT LOCATION 210 (8) TC ALLOW THE 
6 ADDRESS OF THE RH11 OR RH70 TO BE CHANGED. 
4 4.2 UNIBUS & VECTOR ADDRESSES 
80 THE PROGRAM ASSUMES THE FOLLOWING UNIBUS AND VECTOR ADDRESSES. 
81 THESE ADDRESSES MAY BE CHANGED PRIOR TO STARTING THE PROGRAM 
He FROM ANY OF THE STARTING ADDRESSES. 
84 MEMORY 
gs LOCATION CONTENTS FUNCTION 
87 
88 1142 177560 TTY KEYBOARD STATUS REG 
89 1144 177562 TTY KEYBOARD BUFFER REG 
90 1146 177564 TTY PRINTER STATUS REG 
91 1150 177566 TTY PRINTER BUFFER REG 
92 1210 172540 KW1l1l-P STATUS REG 
93 1212 172542 KW11-P COUNTER BUFFER 
94 1214 104 KW1ll-P VECTOR ADDRESS 
95 1216 177546 KWll-L STATUS REGISTER 
4 1220 100 KW1l1l-L VECTOR ADDRESS 
= 4.3 OPERATOR ACTION 
100 CONNECT THE DUAL PORT TEST CABLE BETWEEN BUS A 
10% & BUS B ON THE DRIVE BEING TESTED. (SEE SECTION 5.4) 
102 B. LOAD THE PROGRAM INTO MEMORY IN THE PROCESSOR CONTROLLING 
103 THE MASSBUS USED FOR TESTING. 
104 C. SWITCH THE "PORT SELECT’ SWITCH ON THE DRIVE TO BE 
105 TESTED TO THE ‘A/B* POSITION. CYCLE THE DRIVE UP. 
106 D. LOAD THE APPROPIATE STARTING ADDRESS (200(8) OR 210(8)) 
107 INTO THE SWITCH REGISTER (OR THE ‘SOFTWARE’ SWITCH REGISTER. 
108 REFER TO SECTION 5.2). 
109 E. PRESS START. 
110 F. ENTER THE DRIVE NUMBER. 
111 G. ENTER THE NUMBER OF THE TEST TO BE RUN. ("CARRIAGE RETURN’ 
112 OR ‘O' WILL RUN ALL TESTS.) 
113 H. THE PROGRAM MAY BE STOPPED AT ANY TIME AND RESTARTED 
114 FROm LOCATION 204. 
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5. OPERATING PROCEDURES 


5.1 OPERATIONAL SWITCH SETTINGS 


WITH ALL SWITCHES SET TO ZERO, THE PROGRAM WILL TYPE 
ALL ERRORS AND CONTINUE TESTING. 


THE SWITCH SETTINGS ARE: 


SW<15>=1...HALT ON ERROR 
SW<14>=1...LOOP ON TEST 
SW<13>=1... INHIBIT ERROR TYPEOUTS 
SW<11>=1... INHIBIT TEST ITERATIONS 
SW<10>=1...RING TTY BELL ON ERROR 
SW<09>=1...LOOP ON ERROR 


5.2 "SOFTWARE" SWITCH REGISTER 


IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (1.E£. AN 11/34) 
THE PROGRAM WILL ota ig THAT THE HARDWARE SWITCH REGISTER IS 

NOT PRESENT AND WILL USE A ‘SOFTWARE* SWITCH REGISTER. THE 
"SOFTWARE' SWITCH REGISTER 1S LOCATED AT LOCATION 176 (8). THE 
SETTINGS OF THE ‘SOFTWARE’ SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 
ROUTINE WHICH IS CALLED BY TYPING A ‘CONTROL G'. THE PROGRAM WILL 
RECOGNIZE THE ‘CONTROL G* AT ANY TIME EXCEPT WHEN THE PROGRAM 

1S AT A_ HIGHER PRIORITY PROCESSING AN RMO5/3/2 INTERRUPT. THE 
"SOFTWARE* SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 


"SWR = NNNNNN NEW =' 


EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED., ‘RUBOUT' AND 
"CONTROL U' Sy Bl yyy MAY BE USED TO CORRECT TYPING ERRORS 

DURING SWITCH ENTR 


ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE ‘SOFTWARE* SWITCH 
REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE 
"UP POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE 
he I conc AND THE PROCEDURES DESCRIBED ABOVE MUST 

LL . 


5.5 TEST SELECTION 


yd Abe on TESTS ARE SELECTED IN RESPONSE TO THE “ENTER 
TEST NUMBER:' MESSAGE. ANY VALID TEST NUMBER CAN BE 
ENTERED. EACH ENTRY MUST BE VTERMINATED BY A CARRIAGE 
RETURN (CR). THE LOOP ON TEST SWITCH, SW<14>, MUST BE SET 
TO ALLOW COWT INUOUS EXECUTION OF THE SELECTED TEST. 


TO RUN ALL TESTS IN SEQUENCE, ENTER EITHER A ‘O' FOLLOWED 
BY A CARRIAGE RETURN OR A CARRIAGE RETURN BY ITSELF. THE 
PROGRAM WILL THEN EXECUTE ALL TESTS IN SEQUENCE. 


ie iii ieee ee ees 


NNADBAAAOAOOOOA HMMM ES SELLE EEE EWWAAANW WWW Puno nono pofpnonon @ SS a es 
—$O OWNS UF WR | OO ONO VF WR O OD ONO ASW —$ OO ONO UE WR ODO ONAUFWR—-OWOOnou 


CZRMRAO RMO5/3/2 DU POR TST 1 


i ks a a ot at ot at 
OOOO OO OOO WOO 000 0 0 00 0 SI I NI NS 


so 
CONAUEWN HO OONA VE WW ODOONAUE Wr 


199 


DWNOVAEWH—O OONO AS WH—O 


POPEMPINSMNMINONMNYNGNONON MOR No Po foro 
MOPMOM PNA NNR — 


G 1 
MACRO V03.01 11-APR=80 14:26:10 PAGE 3-3 


5.4 


SEQ 0006 


1HE "RUBOUT KEY’ (RO) CAN BE USED TO DELETE THE LAST 
CHARACTER ENTERED. SUCCESSIVELY STRIKING THE RO KEY 

WILL DELETE CHARACTERS UNTIL THE PREVIOUS CHARACTERS HAVE 
BEEN DELETED. CHARACTERS DELETED BY THE RO KEY WILL BE 
TYPED AND WILL BE SEPARATED BY ‘\* FROM THE CHARACTERS 
ENTERED BY THE OPERATOR. 


CONTR a CAN DELETE AN ENTIRE ENTRY BY TYPING A 


TEST CABLE CONNECTION 


TO TEST THE RMO05/3/2 DUAL PORT OPTION WITH THIS PROGRAM, 

A SPECIAL TEST CABLE MUST BE USED. (THE TEST CABLE IS 

P/N 7010507-02). THE TEST CABLE CONNECTS MASSBUS A & MASSBUS 
B TOGETHER AT THE DRIVE BEING TESTED AND IS CONSTRUCTED SO 
THAT BIT 0 OF THE MASSBUS UNIT SELECT LINES IS COMPLEMENTED. 


WITH THE DRIVE CABLE CONNECTED TO THE RMO5/3/2 UNDER TEST, 
THE DRIVE APPEARS AS TWO UNITS ON THE MASSBUS: EACH PORT 
OF THE DRIVE WILL RESPOND TO A DIFFERENT MASSBUS ADDRESS. 
THE ADDRESS OF EACH PORT WILL DEPEND UPON THE DRIVE'S 
ADDRESS PLUG. 


THE PROGRAM WILL TYPEOUT THE APPARENT ADDRESSES OF BOTH 
PORTS. (ONE PORT WILL HAVE THE ADDRESS OF THE DRIVE; THE 
OTHER PORT WILL HAVE THE ADDRESS DEVELOPED BY THE CABLE). 


ARRAS RRRRBARRSRASSAASASZSLESELESE SEE EEE SESE SESE SEES SSAC OSES 


* ANY OTHER DRIVE ON THE MASSBUS WHICH HAS AN ADDRESS * 
* IN CONFLICT WITH EITHER OF THE TEST ADDRESSES MUST BE * 
* POWERED DOWN. . 


ARR RRA RRR RRR SRSSSASSSELESESE SESE REESE SESE ESSER SSS SEES ESS 


THE TEST CABLE CONNECTION TO THE DRIVE UNDER TEST WILL 

DEPEND ON WHICH PROCESSOR, RH11/RH70 IS TO TEST THE gnives 

IF THE DRIVE IS TO BE TESTED BY THE an’ sia a PORT A, 
CONNECT THE MASSBUS CABLE FROM THE RH TO J3 OF THE 

RMO5/3/2 BACK PANEL,THEN CONNECT THE TEST CABLE (P/N7010507-02) 
FROM J2 TO J? OF THE BACK PANEL AND TERMINATE 

THE PORT ‘'B’' AT J8 


WHEN THE DUAL PORT TEST CABLE IS CONNECTED, THE gh ngl y 

BITS FOR PORTS A & B ARE ASSERTED IN THE SAME BIT POSITION 

WHEN "RMAS* (ATTENTION SUMMARY REGISTER) IS READ. THE ATTENTION 
BIT POSITION IS DETERMINED BY THE ADDRESS OF THE DRIVE 

THE ATTENTION BIT THAT APPEARS FOR THE DRIVE IS THE 

INCLUSIVE "OR' OF THE PORT A & PORT B ATTENTION BITS. BECAUSE 
OF THIS, THE PROGRAM LOOKS AT ONLY THE ATTEPMTION BIT IN 

"RMDS' (DRIVE STATUS REGISTER) TO DETERMINE THE STATE 

OF THE SELECTED PORTS'S ATTENTION BIT. 


ERRORS 
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Fal 


Foe 


ros 


7.4 


7.5 


7.6 


WHEN THE PROGRAM ENCOUNTERS AN ERROR, THE ERROR ROUTINE IS 
CALLED AND IF SwW<13> 1S NOT SET, THE ERROR MESSAGE PERTAINING 
TO THE ERROR WILL BE TYPED. EACH ERROR TYPEOUT WILL CONTAIN 
THE FOLLOWING: 


A. AN ERROR MESSAGE 
B. A DATA HEADER LINE 
C. A DATA LINE CONTAINING: 


1. THE TEST NUMBER 

2. THE PC (PROGRAM COUNTER VALUE) WHERE THE ERROR 
CALL WAS MADE 

3. CONTENTS OF THE APPROPIATE REGISTERS 


MISCELLANEOUS 


RESTRICTIONS 


TO RUN THIS PROGRAM, THE SYSTEM MUST HAVE EITHER A KW11-P 
OR A KWil-L CLOCK. ADDITIONALLY, THE DRIVE UNDER TEST 
MUST HAVE THE DUAL PORT TEST CABLE CONNECTED. 


LIMITATIONS 

THIS PROGRAM DOES NOT TEST DATA TRANSFERS THROUGH EITHER 
PORT, DOES NOT TEST THE DYNAMIC OPERATION OF THE DUAL 
CONTROLLER OPTION, AND DOES NOT TEST THE UNLOAD COMMAND 

OR THE OPERATION OF THE CONTROLLER SELECT SWITCH ON THE DRIVE. 
(REFER TO PARAGRAPH 2.2 & 2.3) 

EXECUTION TIME 


PASS 1 OF THE PROGRAM TAKES ABOUT 45 SECONDS. PASS 2 AND 
SUBSEQUENT PASSES TAKE 2.5 MINUTES. 


REQUIRED TESTS 
IF THE PROGRAM IS BEING EXECUTED IN SINGLE TEST MODE, THE 
OPERATOR MUST CALL AND RUN THE FOLLOWING TESTS BEFORE OTHER 
TESTS ARE RUN: 
A. TEST 2 AND TEST 3. THESE TESTS DETERMINE AND STORE FOR 
LATER USE Die TIMEOUT NON-SHOT VALUE MEASURED THROUGH 
EACH PORT 
DISK SURFACE USAGE 
THIS DIAGNOSTIC DOES NOT USE THE DISK SURFACE. HOWEVER, THE 
ae MUST BE CYCLED UP AND BE ON LINE FOR THE DIAGNOSTIC TO BE 


LOOP ON ERROR OPTION 


SEQ 0007 
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iF SW<09> IS SET, THE PROGRAM WILL LOOP ON A FAILING TEST 
UNTIL EITHER THE SWITCH IS RESET OR THE ERROR STOPS OCCURING. 
BECAUSE THE PROGRAM MUST RESET THE RM05/3/2 TO A KNOWN STATE 
BEFORE LOOPING ON THE ERROR, THE TEST FOR Sw<09> IS PERFORMED 
OAs DETECTED THE TEST = NOT AT THE POINT WHERE THE ERROR 


8. TEST DESCRIPTIONS 


8.1 METHOD USED TO VERIFY THAT THE DRIVE IS IN NEUTRAL 


THE PROGRAM DETERMINES THAT THE DRIVE IS _IN NEUTRAL BY CHECKING 
THE CONTENTS OF THE DRIVE STATUS REGISTER (RMDS) THROUGH 

BOTH PORTS. “ PROGRAM MASKS OUT THE PORT DEPENDENT BITS 
("ATA' & ‘VV') AND VERIFIES THAT CORRECT STATUS IS READ 

THROUGH BOTH PORTS. (THE CORRECT STATUS IS ‘MOL’, 'PGM', 

"DPR' "DRY'.) IF NEITHER PORT SEES ALL ZEROS FROM 

RMDS, THE PROGRAM CONCLUDES THAT THE DRIVE IS IN NEUTRAL 

AND THAT ANY BIT DESCREPANCY 12 ea PORTS INDICATES A 

FAILURE IN THE PATH FOR THAT BIT 


ADDITIONALLY, THE PORT REQUEST FLOPS (RQA, RQB) OF THE 
MAINTENANCE REGISTER ARE TESTED, AND SHOULD BE ZERO IF 
THE DRIVE 1S IN NEUTRAL. 


8.2 METHOD USED TO VERIFY THAT THE DRIVE HAS BEEN SEIZED 


THE PROGRAM VERIFIES THAT THE DRIVE HAS BEEN SEIZED BY 
CHECKING THE DRIVE STATUS REGISTER (RMDS) THROUGH 

THE SEIZING PORT AND VERIFING THAT CORRECT STATUS IS 
SEEN. WHEN RMDS IS READ THROUGH THE OPPOSITE PORT, 

ZEROS SHOULD BE SEEN. IF BOTH CONDITIONS EXIST, (I.E. 
CORRECT STATUS THROUGH THE SEIZING PORT AND ZEROS THROUGH 
THE OPPOSITE PORT), THF PROGRAM CONCLUDES THAT THE DRIVE 
HAS BEEN SEIZED BY THE SPECIFIED PORT. 


8.3 METHOD USED TO VERIFY PORT REQUESTS 


THE PORT wt FLOPS IN THE MAINTENANCE REGISTER ARE 

TESTED TO DETERMINE IF 

. A DRIVE IS IN NEUTRAL,1.E., RQA AND RQB ARE ZERO; 

. A DRIVE IS SEIZED, I.£., RQA OR ROB IS ONE; 

. A PORT REQUEST IS SET WHILE THE' DRIVE 1S SEIZED TO THE 
ALTERNATE PORT, 1.£., RQA AND RQB ARE ONE. 


TEST 1 NEUTRAL ACCESS TES! 


VERIFY THAT THE DRIVE IS ACCESSIBLE TO BOTH PORTS 


A. SELECT DRIVE, VERIFY THAT THE DRIVE 1S PRESENT, THAT THE 
DRIVE 1S A DUAL PORT RMOQ5/3/2, THAT THE DRIVE 1S ONLINE (RMDS HAS 


SEQ 0008 
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: SEQ 0009 
343 "MOL', 'PGM', 'DPR', & ‘DRY’ BITS SET), ie THE THE DRIVE SERIAL 
ee NUMBER READ THROUGH BOTH PORTS IS THE SAME. 

8 B. THE TEST IS REPEATED THROUGH BOTH PORTS. 

348 

234 TEST 2 PORT ‘'A* SEIZE/TIMEOUT TEST 

351 VERIFY THAT THE DRIVE CAN BE SEIZED BY ly B A REMOTE REGISTER AND THAT 
325 IT CAN BE RELEASED BY THE ONE SECOND TIMER 

354 A. WRITE O'S INTO RMDA THROUGH PORT ‘A’; VERIFY THAT THE DRIVE 

Sez HAS BEEN SEIZED. 

357 . READ EACH DRIVE REGISTER, EXCEPT RMCS1, THROUGH PORT 'B'; 

325 VERIFY THAT O'S ARE READ FROM EACH REGISTER. 

360 C. WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE. 

361 MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 

362 VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 
o NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS > 500 MS. 
365 

08 TEST 3 PORT 'B* SEIZE/TIMEOUT TEST 

368 VERIFY THAT THE DRIVE CAN BE SEIZED BY WRITING A REMOTE REGISTER AND THAT 
08 IT CAN BE RELEASED BY THE ONE SECOND TIMER. 

371 A. WRITE 0°S INTO RMDA THROUGH PORT 'B'; VERIFY THAT THE DRIVE 

376 HAS BEEN SEIZED. 

374 B. READ EACH DRIVE REGISTER, EXCEPT RMCS1, THROUGH PORT ‘A’; 

ee VERIFY THAT O'S ARE READ FROM EACH REGISTER. 

377 C. WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE. 

378 MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 

379 VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 
330 NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS >500 MS. 
382 

te TEST 4 PORT ‘A* SEIZE/RELEASE TEST 

oH TEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 

ot A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING O'S INTO RMDS. 

350 B. SET VOLUME VALID AND CLEAR ANY ERROR 

33 

393 C. ISSUE A RELEASE COMMAND THROUGH PORT'A'. VERIFY THAT THE DRIVE 

394 RETURNED TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 

395 DRIVE. 

396 

397 

398 TEST 5 PORT 'B’ SEIZE/RELEASE TEST 
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TEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 
A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING O'S INTO RMDS. 
B. SET VOLUME VALID AND CLEAR ANY ERROR 


C. ISSUE A RELEASE COMMAND THROUGH PORT ‘B'. VERIFY THAT THE DRIVE 
+ tga TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 


TEST 6 PORT ‘A* NEUTRAL/RELEASE TEST 
TEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 
A. ISSUE A RELEASE COMMAND THROUGH PORT ‘A* WITH THE DRIVE IN 
NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 
TEST 7 PORT *B* NEUTRAL/RELEASE TEST 
TEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 
A. ISSUE A RELEASE COMMAND THROUGH PORT 'B' WITH THE DRIVE IN 
NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 
TEST 10 PORT ‘A* RELEASE INTERFERENCE TEST 


VERIFY THAT A COMMAND ISSUED BY a ion 1S NOT RECOGNIZED IF THE DRIVE 
1S SEIZED BY THE OTHER PORT 


SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING 0'S INTO RMDS. 

ISSUE A RELEASE COMMAND THROUGH PORT ‘A’. 

VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT °'B’. 

RELEASE THE DRIVE THROUGH PORT "B'. VERIFY THAT THE DRIVE SWITCHED 
TO PORT ‘A’. 


oe - @ BF 


E. RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 


TEST 11 PORT *B* RELEASE INTERFERENCE TEST 


VERIFY — A COMMAND ISSUED BY bo = 1S NOT RECOGNIZED IF THE DRIVE 
S SEIZED BY THE OTHER PORT 


A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0°S INTO RMDS. 
B. ISSUE A RELEASE COMMAND THROUGH PORT ‘B’. 
C. VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT ‘A'. 


SEQ 0010 
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SEQ 0011 
457 D. RELEASE THE DRIVE THROUGH PORT 'A'. VERIFY THAT THE DRIVE SWITCHED 
te8 10 PORT ‘B’. 
460 E. gy THE DRIVE THROUGH PORT 'B’. VERIFY THAT - DRIVE RETURNED 
ret! O NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 
463 
met TEST 12 PORT "A* RELEASE W/ERRORS TEST 
466 VERIFY THAT ” RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 
re | BITS ARE SET IN THE DRIVE. 
‘3 A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0°S INTO RMDS. 
443 B. WRITE 1°S INTO RMER1 THROUGH PORT ‘A'. 
473 C. ISSUE A RELEASE COMMAND THROUGH PORT 'A'. VERIFY THAT THE 'GO' 
474 BIT HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, AND 
ma THAT RMER1 HAS NOT BEEN CLEARED. 
ryt D. CLEAR RMER1 BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT ‘A’. 
479 E. ISSUE A RELEASE COMMAND THROUGH PORT ‘A’. VERIFY THAT THE DRIVE 
m3 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
482 
i TEST 13 PORT 'B* RELEASE W/ERRORS TEST 
485 ; VERIFY THAT A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 
Pe BITS ARE SET IN THE DRIVE. 
re A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING O'S INTO RMDS. 
rb B. WRITE 1°S INTO RMER1 THROUGH PORT ‘B'. 
492 C. ISSUE A RELEASE COMMAND THROUGH PORT 'B'. VERIFY THAT THE ‘GO’ 
493 BIT HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, AND 
= THAT RMER1 HAS NOT BEEN CLEARED. 
_* D. CLEAR RMER1 BY ISSUING A DRIVE CLEAR COMMAND THROUGH POR] 'B’. 
498 J E. ISSUE A RELEASE COMMAND THROUGH PORT 'B'. VERIFY THAT THE DRIVE 
+44 RE(URNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
501 
502 
503 
aoe TEST 14 PORT "A* SEIZE AND CLEAR TEST 
506 VERIFY THAT A MASSBUS CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 
507 PORT TO RELEASE THE DRIVE. 
a 


A. SEIZE THE DRIVE BY WRITING O'S INTO RMDS THROUGH PORT ‘A’. 
VERIFY THAT THE DRIVE HAS BEEN SEIZED. 


0 

1 

2 B. ISSUE A DRIVE CLEAR THROUGH PORT ‘A* AND VERIFY THAT THE DRIVE 
3 DOES NOT RETURN TO NEUTRAL. 
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C. ISSUE A MASSBUS CLEAR THROUGH THE RH AND VERIFY THAT THE DRIVE 
DOES NOT RETURN TO NEUTRAL. 


D. RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 15 PORT "B* SEIZE AND CLEAR TEST 


VERIFY THAT A MASSBUS CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 
PORT TO RELEASE THE DRIVE. 


A. SEIZE THE DRIVE BY WRITING 0°S INTO RMDS THROUGH PORT '‘B’. 
VERIFY THAT THE DRIVE HAS BEEN SEIZED. 


B. ISSUE A DRIVE CLEAR THROUGH PORT ‘B' AND VERIFY THAT THE DRIVE 
DOES NOT RETURN TO NEUTRAL. 


C. ISSUE A MASSBUS CLEAR THROUGH THE RH AND VERIFY THAT THE DRIVE 
DOES NOT RETURN TO NEUTRAL. 


D. RELEASE THE DRIVE THROUGH PORT 'B'. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 16 SEIZE ‘A‘ BY RMCS1 TEST 


VERIFY THAT READING THE CONTROL REGISTER (RMCS1) SEIZES THE DRIVE 
IF THE DRIVE IS IN NEUTRAL. 

A. READ THE CONTROL REGISTER (RMCS1) THROUGH PORT ‘A'; VERIFY THAT 
THE DRIVE IS SEIZED. 


B. ISSUE A RELEASE COMMAND THROUGH PORT 'A'; VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 17 SEIZE ‘B' BY RMCS1 TEST 


VERIFY THAT READING THE CONTROL REGISTER (RMCS1) SEIZES THE DRIVE 
IF THE DRIVE IS _IN NEUTRAL. 
A. READ THE CONTROL REGISTER (RMCS1) THROUGH PORT 'B'; VERIFY THAT 
THE DRIVE IS SEIZED. 


B. ISSUE A RELEASE COMMAND THROUGH PORT 'B'; VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
TEST 20 PORT 'A* INHIBIT SEIZE BY RMCS1 TEST 


VERIFY THAT READING THE CONTROL REGISTER (RMCS1) DOES NOT StT "PORT 
REQUEST’ IF THE DRIVE IS SEIZED. 


A. SEIZE THE DRIVE THROUGH PORT "B' BY READING RMCS1. VERIFY THAT 
THE DRIVE HAS BEEN SEIZED. 


SEQ 0012 
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SEQ 0013 
B. ag” eae CONTROL REGISTER FROM PORT ‘A’. VERIFY THAT ‘DVA" IS NOT 


C. ISSUE A RELEASE COMMAND THROUGH PORT 'B'. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
TEST 21 PORT 'B* INHIBIT SEIZE BY RMCS1 TEST 


VERIFY THAT READING THE CONTROL REGISTER (RMCS1) DOES NOT SET ‘PORT 
REQUEST’ IF THE DRIVE IS SEIZED. 


A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY READING RMCS1. VERIFY THAT 
THE DRIVE HAS BEEN SEIZED. 


B. a CONTROL REGISTER FROM PORT 'B'. VERIFY THAT ‘DVA" IS NOT 
C. ISSUE A RELEASE COMMAND THROUGH PORT 'A'. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
TEST 22 SEIZE BY RMAS TEST 
TEST THAT WRITING THE APPROPRIATE DRIVE BIT INTO THE ATTENTION REGISTER 
eg SEIZES THE DRIVE. VERIFY THAT REQUEST IS SE1 FOR THE OTHER 
A. WRITE THE APPROPRIATE DRIVE BIT INTO RMAS; VERIFY THAT THE DRIVE 
IS SEIZED. 
B. ISSUE A RELEASE COMMAND THROUGH THE SEIZING PORT; VERIFY THAT THE 


DRIVE SWITCHES TO THE OPPOSITE PORT. ISSUE A RELEASE THROUGH THE 
OPPOSITE PORT AND VERIFY THAT THE DRIVE IS IN NEUTRAL. 


TEST 23 INHIBIT SEIZE BY RMAS TEST 


VERIFY THAT THE DRIVE IS NOT SEIZED WHEN A ‘ZERO’ IS WRITTEN INTO 
THE DRIVE'S ATTENTION BIT. 


A. SELECT A DRIVE NOT BEING TESTED AND WRITE ALL BITS, EXCEPT THE 
BIT OF THE DRIVE BEING TESTED, INTO THE ATTENTION REGISTER. 


B. VERIFY THAT THE DRIVE IS STILL IN NEUTRAL. 


TEST 24 SET PORT ‘A’ REQUEST TEST 


VERIFY THAT WRITING A DRIVE REGISTER SETS ‘PORT REQUEST" WHEN THE 
DRIVE IS SEIZED BY THE OTHER PORT. 
x 


A. SEIZE THE DRIVE THROUGH PORT °B' BY WRITING O'S INTO RMDS. 
B. WRITE 0°S INTO RMDS FROM PORT 'A'; VERIFY THAT THE DRIVE IS STILL 
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SEQ 0014 
oss SEIZED BY PORT ‘B'. 
630 C. ISSUE A RELEASE COMMAND FROM PORT 'B’ AND VERIFY THAT THE DRIVE 
631 SWITCHED TO PORT ‘A’. VERIFY THAT THE ATTENTION BIT 1S SET FOR 
Oe PORT 'A’ AND IS NOT SET FOR PORT 'B’. 
63¢ D. ISSUE A RELEASE COMMAND THROUGH PORT ‘A’ AND VERIFY THAT THE DRIVE 
4 +4 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
637 
+4 TEST 25 SET PORT ‘B" REQUEST TEST 
640 VERIFY THAT WRITING A DRIVE REGISTER sets "PORT REQUEST’ WHEN THE 
ot DRIVE IS SEIZED BY THE OTHER P 
“: A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING O'S INTO RMDS. 
645 B. WRITE O'S INTO ores, og PORT 'B'; VERIFY THAT THE DRIVE IS STILL 
ot SEIZED BY PORT 
648 C. ISSUE A RELEASE COMMAND FROM PORT 'A' AND VERIFY THAT THE DRIVE 
649 SWITCHED TO PORT 'B'. VERIFY THAT ATTENTION BIT IS SET FOR 
a3 PORT 'B' AND IS NOT SET FOR PORT ‘A’ 
652 D. ISSUE A RELEASE COMMAND THROUGH PORT 'B' AND VERIFY THAT THE DRIVE 
=: RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
655 
3! TEST 26 TEST RESET ATTENTION ‘A’ BY DRIVE CLEAR 
658 VERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT OF THE 
44 SEIZING PORT. 
661 A. SET EACH PORT 'S ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 
662 SET. 
663 
664 
665 
666 
roth B. SEIZE * © DRIVE THROUGH PORT ‘A’ BY WRITING O'S INTO RMDS. 
4 4 C. ISSUE A DRIVE CLEAR COMMAND. 
67° 
672 D. RELEASE THE DRIVE THROUGH PORT "A'. VERIFY THAT THE ATTENTION 
673 BIT FOR PORT ‘A* HAS BEEN CLEARED AND THE ATTENTION BiT FOR PORT 
674 "B’ IS STILL SET. 
675 
676 
44 TEST 27 TEST RESET ATTENTION ‘B* BY DRIVE CLEAR 
6 
679 VERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT OF THE 
re 4 SEIZING PORT. 
“ A, ast gree PORT'S ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 
6 5 2 
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B. SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING O'S INTO RMDS. 
C. ISSUE A DRIVE CLEAR COMMAND. 
D. RELEASE THE DRIVE THROUGH PORT 'B’. VERIFY THAT THE ATTENTION 


TEST 30 
VERIFY 


TEST 31 
VERIFY 


TEST 32 


BIT FOR PORT ‘B* _ BEEN CLEARED AND THE ATTENTION BIT FOR PORT 
"A’ IS STILL SET 
RESET ATTENTION ‘A’ By GO TEST 


THAT THE ‘GO = CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZING PORT 


SET EACH PORT'S ATTENTION BIT, AND VERIFY THAT BOTH 
ATTENTION BITS ARE SET. 

SEIZE THE DRIVE THROUGH PORT ‘A* By WRITING 0°S 
INTO RMDS. 

ISSUE A NOP COMMAND. 

RELEASE THE FRIVE THROUGH PORT ‘A’, VERIFY THAT THE 
ATTENTION BIT FOR PORT ‘A* IS RESET, AND THE 
ATTENTION BIT FOR PORT 'B' IS STIL SET. 

RESET ATTENTION ‘B' BY GO TEST 


THAT THE ‘GO lt CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZING PORT 


SET EACH PORT'S as a BIT, AND VERIFY THAT BOTH 
ATTENTION BITS ARE SET 


SEIZE a DRIVE THROUGH PORT ‘B’ BY WRITING O'S 
INTO RMDS, 


ISSUE A NOP COMMAND. 
RELEASE THE FRIVE THROUGH PORT ‘3°. VERIFY THAT THE 


ATTENTION BIT FOR PORT ‘B* IS RESET, AND THE 
ATTENTION BIT FOR PORT ‘A’ IS STIL SET. 


TEST RESET ATTENTION ‘A* & ‘B* BY MASSBUS INIT 


VERIFY you MASSBUS CLEAR RESETS BOTH PORT'S ATTENTION BITS WHEN THE 


A. 
B. 
C. 


RIVE IS IN NEUTRAL 

SET THE ATTENTION BITS FOR BOTH PORTS. 

VERIFY THAT THE DRIVE IS IN NEUTRAL. 

ISSUE A MASSBUS INIT. VERIFY THAT BOTH ATTENTION SITS HAVE 


SEQ 0015 
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RESET. 


TEST 33 RESET ATTENTION ‘A’ & ‘B' BY RMAS 


‘ VERIFY THAT 69TH ATTENTION BITS CAN BE RESET BY or THE 


APPROPRIATE BIT IN THE ATTENTION SUMMARY REGISTER 


A. SET THE ATTENTION BITS FOR BOTH PORTS. 
B. VERIFY THE DRiVE IS IN NEUTRAL. 
C. WRITE THE DRIVE'S ATTENTION BIT IN RMAS, VERIFY 


THAT BOTH ATTENTION BITS ARE RESET AS SEEN BY RMAS. 


TEST 34 PORT ‘A’ ALTERNATE ATTENTION PATH TEST 
VERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 
A. SET THE ATTENTION BIT FOR PORT ‘A’, 


B. SEIZE THE DRIVE THROUGH PORT 'B* BY WRITING O'S INTO RMDS. 
C. READ THE ATTENTION — & VERIFY THAT THE ATTENTION BIT 
FOR THE DRIVE IS SET 


TEST 35 PORT 'B' ALTERNATE ATTENTION PATH TEST 
VERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 
A. SET THE ATTENTION BIT FOR PORT ‘'B'. 
B. SEIZE THE DRIVE THROUGH PORT ‘A* 8Y WRITING 0°S INTO RMDS. 
C. READ THE ATTENTION - aca &@ VERIFY THAT THE ATTENTION BIT 
FOR THE DRIVE IS SET 
TEST 36 SET ATTENTION ‘A' BY COMMMAND TEST 
TEST THE OPERATION OF THE PORT A AND PORT B ATTENTION BITS AFTER A 
COMMAND. 


A. ISSUE A OFFSe’ COMMAND THROUGH PORT ‘A’. 


B. WAIT FOR THE OFFSET COMMAND TO COMPLETE ("DRY* TO BECOME 
"1°). VERIFY THAT THE ATTENTION BIT FOR PORT ‘A* IS SET AND 
THAT THE ATTENTION BIT FOR PORT ‘B* JS NOT SET 


C. RELEASE THE DRIVE THROUGH PORT ‘A’. og VAT THE DRIVE RETURNED 


Y 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT 


SEQ 0016 
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TEST 37 SET ATTENTION ‘'B' BY COMMMAND TEST 
TEST THE OPERATION OF THE PORT A AND PORT B ATTENTION BITS AFTER A 
COMMAND. 


A. ISSUE A RECALIBRATE COMMAND THROUGH PORT ‘B'. 


B. WAIT FOR THE RECALIBRATE COMMAND TO COMPLETE ('DRY’ TO BECOME 
"1'). VERIFY THAT THE ATTENTION BIT FOR PORT "B’ IS SET AND 
THAT THE ATTENTION BIT FOR PORT ‘A* JS NOT SET. 


C. RELEASE THE DRIVE THROUGH PORT ‘B’. VERIFY THAT DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 


VERIFY THAT A CHANGE * UNIT READY SETS THE ATTENTION 
FOR BOTH PORTS 


THIS FUNCTION IS PERFORMED DURING THE SET VOLUME VALID TEST. 


VERIFY THAT ATTENTION SETS WHEN THE DRIVE SWITCHES AFTER 
BEING RELEASED. 


THIS 1S PERFORMED DURING THE ‘SET PORT REQUEST TEST"’ 


TEST 40 PORT ‘A* SET VOLUME VALID TEST 
VERIFY THAT VOLUME VALID CAN BE SET FOR THE PORT UNDER TEST. 


A. WITH PORT ‘A* SELECTED, RESET AND SET "UNIT READY'' 
STATUS USING DIAGNOSTIC MODE. VERIFY THAT THE DRIVE 
1S SEIZED AND THAT "VOLUME VALID’ IS RESET AND 
ATTENTION IS SET. 


B. ISSUE A DRIVE CLEAR COMMAND AND A READ IN PRESET 
COMMAND TO THE DRIVE THAT WAS SEIZED IN STEP A, 
sg THAT ATTENTION IS RESET AND THAT VOLUME VALID 


Cc. eel Sate THE DRIVE FROM PORT ‘A* AND SELECT THE DRIVE FOR 
PORT ‘B'. VERIFY THAT ATTENTION IS STIL SET AND THAT 
VOLUME VALID IS STIL RESET. 


D. ISSUE A DRIVE CLEAR AND A "it. IN PRESET COMMAND TO 
PORT "B’ THEN RELEASE PORT ‘B 


TEST 41 PORT *B* SET VOLUME VALID TEST 
VERIFY THAT VOLUME VALID CAN BE SET FOR THE PORT UNDER TEST. 


A. WITH PORT "B* SELECTED, RESET AND SET "UNIT READY" 
STATUS USING DIAGNOSTIC MODE. VERIFY THAT THE DRIVE 


SEQ 0017 
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D SET "VOLUME VALID'’ IS RESET AND 


Z 

] 

A DRIVE CLEAR COMMAND AND A READ IN PRESET 

D TO THE DRIVE THAT WAS SEIZED IN STEP A. 

Hag THAT ATTENTION IS RESET AND THAT VOLUME VALID 

C. RELEASE THE DRIVE FROM PORT 'B' AND SELECT THE DRIVE FOR 
PORT ‘A*, VERIFY THAT ATTENTION IS STIL SET AND THAT 
VOLUME VALID IS STIL RESET. 


D. ISSUE A DRIVE CLEAR AND A rs IN PRESET COMMAND TO 
PORT ‘A’ THEN RELEASE PORT 


TEST 42 TEST PORT 'A* TIMEOUT DOES NOT RESET DRIVE 
VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 
A. SEIZE THE DRIVE THROUGH PORT ‘A* BY WRITING O'S INTO RMDS. 


B. WRITE 1°S INTO RMER1 THROUGH PORT ‘A’ TO FORCE AN ATTENTION. 
C. WAIT FOR THE DRIVE TO TIMEOUT. VERIFY THAT THE DRIVE RETURNED TO 
NEUTRAL; THAT ATTENTION IS SET FOR PORT ‘A* AND NOT SET FOR 
PORT *B'; AND THAT BOTH PORTS SEE 1°S IN THE ERROR REGISTER. 
TEST 43 TEST PORT ‘B® TIMEOUT DOES NOT RESET DRIVE 
VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 
A. SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING O'S INTO RMDS. 
B. WRITE 1°S INTO RMER1 THROUGH PORT '‘B’. 
C. WAIT FOR THE DRIVE TO TIMEOUT. VERIFY THAT THE DRIVE RETURNED TO 


NEUTRAL; THAT ATTENTION IS SET FOR PORT ‘B* AND IS NOT SET FOR 
PORT ‘A’; AND THAT BOTH PORTS SEE 1'S IN THE ERROR REGISTER. 


TEST 44 PORT *A* RETRIGGER BY DEMAND TEST 


VERIFY THAT THE PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED BY MASSBUS DEMAND. 


A. SEIZE THE DRIVE THROUGH PORT ‘A* BY WRITING O'S INTO RMDS. 
B. WAIT 500 MS AND READ RMDS THROUGH PORT ‘A’. 


C. VERIFY THAT THE TIMFOUT OCCURS WITHIN + OR - “ OF THE SPECIFIED 
TIME. (THE MEASUREMENT 1S MADE FROM STEP ‘B 


D. sot tg DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 


SEQ 0018 


CZRMRAQ RMOS/3/2 DU POR TST 1 


ODODOOOOOOOVODO 
PROMUNTUN — Ss Ss es 
WHO OONOUS WW 


924 


G 
MACRO V03.01 11-APR=80 14:26:10 PAGE 316 


TEST 45 PORT 'B" RETRIGGER BY DEMAND TEST 


VERIFY THAT THE PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED BY MASSBUS DEMAND. 


A. SEIZE THE DRIVE THROUGH PORT 'B" BY WRITING 0'S INTO RMDS. 
B. WAIT 500 MS AND WRITE 0°B INTO RMDS THROUGH PORT ‘A’. 


C. VERIFY THAT THE TIMEOUT OCCURS WITHIN + OR - al OF THE SPECIFIED 
TIME. (THE MEASUREMENT IS MADE FROM STEP 'B 


D. a at DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 


TEST 46 PORT ‘A* TIMEOUT/RELEASE TEST 


VERIFY THAT THE TIMEOUT ONE=SHOT IS TRIGGERED WHEN THE DRIVE 
SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 


A. SEIZE THE DRIVE THROUGH PORT 'B* BY WRITING O'S INTO RMDS. 
B. SE’ PORT REQUEST BY WRITING 0'S INTO RMDS FROM PORT ‘A’. 
C. ISSUE A RELEASE COMMAND FROM PORT 'B'. VERIFY THAT THE DRIVE 
HAS SWITCHED TO THE OTHER PORT AND THAT THE ‘ATA* BIT DID NOT 
SET FOR PORT ‘B*. REGISTERS WILL NOT BE CHECKED THROUGH PORT ‘A’. 


D. WAIT THE TIMEOUT INTERVAL * 25%. VERIFY THAT THE DRIVE HAS 
BEEN RELEASED. 


E. RELEASE THE DRIVE THROUGH PORT ‘A*. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
TEST 47 PORT 'B' TIMEOUT/RELEASE TEST 


VERIFY THAT THE TIMEOUT ONE-SHOT IS TRIGGERED WHEN THE DRIVE 
SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 


A. SEIZE THE DRIVE THROUGH PORT ‘A* BY WRITING O'S INTO RMDS. 
B. SET PORT REQUEST BY WRITING 0°S INTO RMDS FROM PORT ‘B’. 
C. ISSUE A RELEASE COMMAND FROM PORT ‘A*. VERIFY THAT THE DRIVE 
HAS SWITCHED TO THE OTHER PORT AND THAT THE ‘ATA’ BIT DID NOT 
SET FOR PORT ‘A*. REGISTERS WILL NOT BE CHECKED THROUGH PORT ‘B*. 
D. WAIT THE TIMEOUT INTERVAL + 25%, VERIFY THAT THE DRIVE HAS 
BEEN RELEASED. 


TEST 50 PORT ‘A* SEIZE ACCESS TEST 


SEQ 0019 
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SEQ 0020 

970 VERIFY THAT THERE 1S NO INTERACTION BETWEEN PORTS. 
org A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING O'S INTO RMDS. 
or B. WRITE 1'S INTO RMER1, RMER2 THROUGH PORT ‘A’. 
976 C. READ RMER1, RMER2 THROUGH PORT 'B'. VERIFY THAT PORT 
444 "B' SEES O'S FROM EACH OF THESE REGISTERS. 
os . D. CLEAR RMER1, RMER2 THROUGH PORT ‘A’. 
981 E. WRITE 1°S INTO RMER1, RMER2 THROUGH PORT 'B'. VERIFY THAT 
982 PORT 'A' SEES O'S FROM EACH OF THESE REGISTERS. 
3s 
986 F. RELEASE THE DRIVE THROUGH PORT 'A'. VERIFY THAT THE DRIVE HAS 
987 SWITCHED TO PORT 'B' AND THAT THE ATTENTION BIT FOR PORT 'B' IS 
988 SET AND THE ATTENTION BIT FOR PORT ‘A’ IS NOT SET. 
990 G. ISSUE A RELEASE COMMAND THROUGH PORT 'B'. VERIFY THAT THE DRIVE 
991 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
993 
994 TEST 51 PORT 'B" SEIZE ACCESS TEST 
995 
996 
997 VERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 
1333 A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING O°S INTO RMDS. 
1901 B. WRITE 1'S INTO RMER1, RMER2 THROUGH PORT ‘B'. 
1003 C. READ RMER1, RMER2 THROUGH PORT 'A'. VERIFY THAT PORT 
1004 ‘A’ SEES O'S FROM EACH OF THESE REGISTERS. 
1006 D. CLEAR RMER1, RMER2 THROUGH PORT 'B’. 
1008 E. WRITE 1'°S INTO RMER1, RMER2 THROUGH PORT 'A‘. VERIFY THAT 
1009 PORT 'B' SEES 0'S FROM EACH OF THESE REGISTERS. 
1011 F. RELEASE THE DRIVE THROUGH PORT 'B'. VERIFY THAT THE DRIVE HAS 
1012 SWITCHED TO PORT 'A' AND THAT THE ATTENTION BIT FOR PORT ‘A’ IS 
1013 SET AND THE ATTENTION BIT FOR PORT 'B' IS NOT SET. 

4 
1015 ISSUE A RELEASE COMMAND THROUGH PORT ‘A’. VERIFY THAT THE DRIVE 
1016 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
1018 
1019 “ 
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;PROGRAM REVISION #001 

-TITLE CZRMRAO wana! ove DU POR TST 1 
;*COPYRIGHT (C) 1980 

;*DIGITAL EQUIPMENT CORP. 

s SMAYNARD , MASS. 01754 

:sPROGRAM BY MIKE LEAVITT 


aTHIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC 
s *PACKAGE (MAINDEC=11-DZQAC-C4), 1980. 


“SBTTL OPERATIONAL SWITCH SETTINGS 


:* SWITCH USE 

-_& ##es22e2cee @ @ @£3£+#8#§# = ert eeeceeeneneeneseeeoacesn 
:* 15 HALT ON ERROR 

7* 14 LOOP ON TEST 

;@ 13 INHIBIT ERROR TYPEOUTS 
:* 11 INHIBIT ITERATIONS 

ze 10 BELL ON ERROR 

;* 9 LOOP ON ERROR 


-SBTTL BASIC DEFINITIONS 
2S INITIAL ADDRESS OF THE STACK POINTER *** 1100 #«* 
STACK 1100 


ERROR EMT ;;BASIC DEFINITION OF ERROR CALL 
SCOPE 10T ;;BASIC DEFINITION OF SCOPE CALL 


eee ae DEFINITIONS 


11 3;CODE FOR HORIZONTAL TAB 

i = 12 ;;CODE FOR LINE FEED 
CR = 15 3;CODE FOR CARRIAGE RETURN 
CRLF = 200 3;CODE FOR CARRIAGE RETURN-LINE FEED 
a - = 177776 3;PROCESSOR STATUS WORD 

W= 
STKLMT = 177774 7:STACK LIMIT REGISTER 
PIRQ = 177772 3:PROGRAM INTERRUPT REQUEST REGISTER 
CSWR = 177570 7; HARDWARE SWITCH REGISTER 
DDISP = 177570 >; HARDWARE DISPLAY REGISTER 
:*GENERAL PURPOSE REGISTER per eel Tous 
RO = 20 33 ERAL REGISTER 
R1 =z $1 1 CENERAL REGISTER 
R2 = 2 7;GENERAL REGISTER 
R3 = 35 ;;GENERAL REGISTER 
R4 = %4 7;GENERAL REGISTER 
R5 = %5 7:GENERAL REGISTER 
R6 = %6 ;;GENERAL REGISTER 
R7 = %7 7;GENERAL REGISTER 
SP = %6 >I STACK POINTER 
PC = £7 3;PROGRAM COUNTER 


poemsoni ty LEVEL vaichenahiee 
PRO 0 PRIORITY LEVEL 0 
PR1 = 40 PRIORITY LEVEL 1 


SEQ 0021 
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BASIC DEFINITIONS SEQ 0022 
000100 PR2 = =_- 100 ;;PRIORITY LEVEL 2 
000140 PRS = (140 i IPRIORITY LEVEL 3 
000200 PRE = = 200 PRIORITY LEVEL 4 
000240 PRS = 240 ;;PRIORITY LEVEL 5 
000300 PRE = =: 300 IPRIORITY LEVEL 6 
000340 PR? ss =_-340 SIPRIORITY LEVEL 7 

s*"'SWITCH REGISTER’ SWITCH DEFINITIONS 
100000 gwi5 = 100000 
040000 SW14 = 40000 
020000 Swi3 = 20000 
010000 Swi2 = 10000 
004000 Swit = 4000 
002000 sw10 = 2000 
001000 SwO9 = ‘1000 
000400 SWOB = = - 400 
000200 swO? = 200 
000100 sw06 = =_:100 
000040 sw0S = 40 
000020 Sw04 == 20 
000010 sw03. = 10 
000004 SwO2 = G 
000002 swol = 2 
000001 swoO = 1 
001000 SW9=SWO9 
000400 SW8=SWO8 
000200 SW7=SW0?7 
000100 SW6=SW06 
000040 SWw5=SW05 
000020 SW4=SW04 
000010 SW3=SW03 
000004 SW2=SwW02 
000002 Sw1=SwWO1 
000001 SwO=SW00 

;*DATA BIT DEFINITIONS (BITOO TO B1T15) 
100000 B1T15 = 100000 
040000 BIT14 = 40000 
020000 BIT13. = 20000 
010000 BITI2 = 10000 
004000 BIT!1 = 4000 
002000 BIT10 = 2000 
001000 BITO9 = 1000 
000400 BITOB = 400 
000200 BIT07 = 200 
000100 BIT06 = 100 
000040 BIT0S = 40 
000020 BIT04 = 20 
000010 BIT03 = 10 
000004 BIT02 = 4 
000002 BITO! = 2 
000001 BIT0O = 1 
001000 B1T9=B1109 
000400 B118=B1108 
000200 BI17=B1107 
000100 B116=B1106 
000040 B1T5=B1105 
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BASIC DEFINITIONS 
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-SBTTL RH11/RH70 REGISTERS 


“CPU'’ TRAP VECTOR ADDRESSES 
& 3; TIME OUT AND OTHER ERRORS 
10 csmharevee AND ILLEGAL INSTRUCTIONS 


3; TRACE TRAP 

3 BREAKPOINT TRAP (BPT) 

+s INPUT/OUTPUT TRAP (IOT) **SCOPE+* 
;POWER FA 


4 

0 

4 IL 

“ His se al (EMT) **ERROR*®* 
0 ii TTY KEYBOARD VECTOR 


:;TTY PRINTER VECTOR 
240 ;;PROGRAM INTERRUPT REQUEST VECTOR 


CONTROL AND STATUS REGISTER 1 (RMCS1) 


IE = 100 
RDY = 200 
Al6 = 400 
Al7 = 1000 
PSEL = 2000 
MCPE = 20000 
TRE = 40000 
SC = 100000 


: INTERRUPT ENABLE (BIT #6) 
:READY (BIT #7) 
:hIGH ORDER BUS ADDRESS BIT (BIT #8) 


HIGH ORDER BUS ADDRESS BIT (BIT #9) 
:PORT SELECT (BIT #10) 

:MASSBUSS PARITY ERROR (BIT #13) 

; TRANSFER ERROR (BIT #14) 

SPECIAL CONDITION (BIT #15) 


:CONTROL AND STATUS REGISTER 2 (RMCS2) 


ud = } 

ul az 

u3 z4 

BA] = 10 
PAT = 20 
CLR = 40 

IR = 100 
OR = 200 
MDPE = 400 
MXF = 1000 
PGE = 2000 
NEM = 4000 
NED = 10000 
UPE = 20000 
WCE = 40000 
DLT = 100000 


DATA BUFFER REGISTER (RMDB) 


UNIT SELECT (BIT #0) 
:UNIT SELECT (BIT #1) 
sUNIT SELECT ‘BIT #2) 


:BUS ADDRESS INCREMENT INHIBIT (BIT #3) 
:MASSBUS PARITY TEST (BIT #4) 

LEAR (BIT #5) 
:INPUT READY (BIT #6) 


:OUTPUT READY (BIT #7) 

:MASS BUS PARITY ERROR (BIT #8) 
MISSED TRANSFER ERROR (BIT #9) 
;PROGRAM ERROR (BIT #10) 

;NON EXISTENT MEMORY (BIT #11) 
sNON EXISTENT DRIVE (u'T #12) 


;UNIBUS PARITY ERROR (BIT #13) 
WRITE CHECK ERROR (BIT #14) 
:DATA LATE (BIT #15) 


(EACH BIT 1S CALLED BY BIT NUMBER) 


~SBTTL RM REGISTERS 


SEQ 0023 


CZRMRAO RMO5/3/2 DU POR TST 1 
RM REGISTERS 


000001 


004000 


000040 


000001 


100000 


000001 


100000 


000001 


100000 


000001 
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sCONTROL AND STATUS REGISTER #1. (#00) 


GO =] :G0 BIT (BIT #0) 

FO = 2 FUNCTION CODE BIT #1 

Fl = sFUNCTION CODE BIT #2 

Fe = 10 sFUNCTION CODE BIT #3 

F3 = 20 FUNCTION CODE at ay 

F4 = 40 sFUNCTION CODE BIT #5 

DVA = 4000 ;DEVICE AVAILABLE (BIT #11) 
sCONTROL STATUS REGISTER #2 (RMCS2) 

CLR = BITS :CONTROLLER CLEAR 

sDRIVE STATUS REGISTER (RMDS) (#01) 

OM = B1T00 OFFSET MODE 

VV = 100 ;VOLUME VALID (BIT #6) 

DRY = 200 DRIVE READY (BIT #7) 

DPR = 400 Ao hs: PRESENT (BIT #8) 

PGM = 1000 PROGRAMABLE (BIT #9) 

LBT = 2000 TLAST SECTOR ge A ima (BIT #10) 
WRL = 4000 sWRITE LOCK (BIT #11) 

MOL = 10000 MEDIUM ON-LINE (BIT #12) 

PIP = 20000 POSITIONING een anit's ire PROGRESS (BIT #13) 
ERR = 40000 COMPOSITE ERROR (BIT 

ATA = 100000 SATTENTION ACTIVE (BIT "HS) 
ERROR REGISTER #01 (RMER1) (#02) 

ILF =] ILLEGAL FUNCTION (BIT #0) 

ILR = 2 ILLEGAL REGISTER (BIT #1) 

RMR = 4 sREGISTER MODIFICATION REFUSED (BI: #2) 
PAR = 10 sPARITY ERROR (BIT #3) 

FER = 20 ;FORMAT ERROR (BIT #4) 

WCF = 40 sWRITE CLOCK FAIL (BIT #5) 

ECH = 100 ;ECC HARD ERROR (BIT #6) 

HCE = 200 HEADER COMPARE ERROR (BIT #7) 
HCRC = 400 ;HEADER CRC ERROR (BIT #8) 

AOE = 1000 ;ADDRESS OVERFLOW ERROR (BIT #9) 
1AE = 2000 INVALID ADDRESS ERROR (BIT #10) 
WLE = 4000 ;WRITE LOCK ERROR (BIT #11) 

DTE = 10000 DRIVE TIMING ERROR (BIT #12) 
OP] = 20000 ;OPERATION INCOMPLETE (BIT #13) 
UNS = 40000 :DRIVE UNSAFE (BIT #14) 

DCK = 100000 :DATA CHECK ERROR (BIT 15) 


;MAINTAINABILITY REGISTER (RMMR1) (#03) 


DMD = 1 sDIAGINOSTIC MODE (BIT #0) 
MUR = BIT09 :MAINTENANCE UNIT READY 
RQB = BIT14 ;PORT B REQUEST FLOP 

RQA = BiT15 ;PORT A REQUEST FLOP 
sATTENTION SUMMARY PSEUDO-REGISTER (RMAS) (#04) 

ATO = 1 :DEVICE 0 (BIT #0) 


SEQ 0024 
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RM REGISTERS SEQ 0025 
706 000002 ATI 22 DEVICE 1 (BIT #1) 
707 000004 AT2 24 DEVICE 2 (BIT #2) 
000010 AT3 = 10 sDEVICE 3 (BIT #3) 
709 000020 AT4 = 20 DEVICE 4 (BIT #4) 
710 000040 ATS = 40 DEVICE 5 (BIT #5) 
711 000100 AT6 = 100 DEVICE 6 (BIT #6) 
ng 000200 AT7 = 200 ‘DEVICE 7 (BIT #7) 
714 DESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA) (#05) 
4g (EACH BIT IS CALLED BY BIT NUMBER) 
a DRIVE TYPE REGISTER (RMDT) (#06) 
719 000001 DT00 = 1 DRIVE TYPE NUMBER BIT 1 
720 000002 D101 z2 DRIVE TYPE NUMBER BIT 2 
721 000004 D102 2.4 DRIVE TYPE NUMBER BIT 3 
722 000010 DT03 = 10 DRIVE TYPE NUMBER BIT 4 
723 000020 DT04 = 20 DRIVE TYPE NUMBER BIT 5 
724 000040 DT05 = 40 DRIVE TYPE NUMBER BIT 6 
725 000100 DT06 = 100 DRIVE TYPE NUMBER BIT 7 
726 000200 D107 = 200 DRIVE TYPE NUMBER BIT 8 
727 000400 D108 = 400 DRIVE TYPE NUMBER BIT 9 
728 004000 DRQ = 4000 DRIVE REQUEST REQUIRED (BIT #11) 
729 020000 MOH = 20000 ‘MOVING HEAD (BIT #13) 
730 040000 TAP = 40000 ;TAPE DRIVE (BIT #14) 
41 100000 NBA = 100000 [NOT BLOCK ADDRESSED (BIT #15) 
3 ;LOOK-AHEAD REGISTER (RMLA) (#07) 
735 000100 Sco = 100 SECTOR COUNT FIELD 0 (BIT #6) 
736 000200 $C1 = 200 SECTOR COUNT FIELD 1 (BIT #7) 
737 000400 $C2 = 400 SECTOR COUNT FIELD 2 (BIT #8) 
738 001000 $¢3 = 1000 SECTOR COUNT FIELD 3 (BIT #9) 
138 002000 SC4 = 2000 SECTOR COUNT FIELD 4 (BIT #10) 
se 7RM ERROR REGISTER #2 (RMER2) (#10) 
743 000010 DPE = 10 DATA PARITY ERROR (BIT #3) 
744 000200 DvCc = 200 DEVICE CHECK (BIT #7) 
745 002000 LBC = 2000 ;LOSS OF BIT CLOCK (BIT #10) 
746 004000 LSC = 4000 LOSS OF SYSTEM CLOCK (BIT #11) 
747 010000 lvc = 10000 INVALID COMMAND (BIT #12) 
748 020000 OPE = 20000 OPERATOR ERROR (BIT #13) 
ie? 100000 SK] = 100000 SEEK INCOMPLETE (BIT #14 
2) OFFSET REGISTER (RMOF) (#11) 
753 000200 OFD = 200 OFFSET FORWARD (BIT #5) 
754 002000 HC] = 2000 HEADER COMPARE INHIBIT (BIT #10) 
755 004000 EC] = 4000 ERROR CORRECTION CODE INHIBIT (BIT #11) 
36 010000 FMT16 = 10000 FORMAT BIT (BIT #12 
758 DESIRED CYLINDER ADDRESS (RMDC) (#12) 
138 7 (EACH BIT IS CALLED BY BIT NUMBER) 
761 SERIAL NUMBER REGISTER (RMSN) (#14) 


762 : (EACH IS CALLED BY BIT NUMBER) 


CZRMRAO as DU POR TST 1 


| RM REGISTER 


000174 
000176 


000200 
4 | 000204 


000046 
000052 
799 


000000 


000046 


000000 


000174 
000000 
000000 


000137 
000137 


000210 
0 


000210 


002240 
002246 
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ION REGISTER (RMEC1) (#16) 
1S CALLED BY BIT NUMBER) 
N 
| 


REGISTER (RMEC2) (#17) 
S CALLED BY BIT NUMBER) 


-SBTTL DEFINITIONS OF THE RH/RM ADDRESS INDEXES 


IT 
IT 
TER 
IT 


RMCS1 = 0 ;CONTROL AND STATUS REGISTER #1 (DRIVE REG. 00) 
RMWC = 2 ;WORD COUNT REGISTER (NOT A DRIVE REG) 

RMBA = 4 SUNIBUS ADDRESS REGISTER (NOT A DRIVE REG) 

RMDA = 6 ;DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 05) 
RMCS2 = 10 CONTROL AND STATUS REGISTER 4 (NOT A DRIVE REG) 
RMDS = 12 DRIVE STATUS REGISTER (DRIVE REG 01) 

RMER] = 14 sERROR REGISTER #1 (DRIVE REG. 09) 

RMAS = 16 iATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 04) 
RMLA = 20 ;LOOK AHEAD REGISTER (DRIVE REG. 07) 

RMDB = 22 :DATA BUFFER REGISTER (NOT A DRIVE REG.) 

RMMR1 == 24 ;MAINTAINABILITY REGISTER (DRIVE REG. 03) 

RMDT = 26 sDRIVE TYPE REGISTER (DRIVE REG. 06) 

RMSN = 30 SERIAL NUMBER REGISTER (DRIVE REG. 10) 

RMOF = 32 OFFSET REGISTER (DRIVE REG. 11) 

RMDC = 34 s;DESIRED CYLINDER ADDRESS aaice ice nae? REG. 
RMMR2 == 40 sMAINTENANCE REGISTER #2 (DRIVE R 14) 

RMER2 == 42 sERROR REGISTER #2 (DRIVE REG. 185° 

RMEC1 = 44 :ECC POSITION REGISTER (DRIVE REG. 16) 

RMEC2 = 46 sECC PATTERN REGISTER (DRIVE REG. 17) 


-SBTTL TRAP CATCHER 


=0 
;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ~*2,HALT"’ 
>*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 

LOCATION CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: .WORD 0 3:SOFTWARE DISPLAY REGISTER 


SWREG: ~-WORD 0 ::SOFTWARE SWITCH REGISTER 

-SBTTL STARTING ADDRESS(ES) 
JMP O#START 3: JUMP TO STARTING ADDRESS OF PROGRAM 
JMP O#STARTI :START AND CHANGE THE RH/RM ADDRESS 


-SBTTL ACT11 HOOKS 


LLU ATA TTT TATA Tee AeA eee eee 
sHOOKS REQUIRED BY ACT11 
$SVPC=. SAVE PC 


= 6 } 

SENDAD ::1)SET LOC.46 TO ADDRESS OF $ENDAD IN . 
“wORD 20000 ;:2)SET LOC, 592 TO 20000 

"=$SVPC +S RESTORE P 


SEQ 0026 
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ACT11 HOOKS 


840 


SEQ 0027 


C 
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COMMON TAGS SEQ 0028 


0 -SBTTL COMMON TAGS 


PL et eeeerereretarerteeereteeeeeHHeHeeeHHeteneneeneeeeteeereeaeeee 


S*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
s*USED IN THE PROGRAM. 


001100 -=1100 
001100 SCMTAG: *;START OF COMMON TAGS 
001100 000000 SPASS: .WORD 0 3: CONTAINS PASS COUNT 
001102 000 STSTNM: .BYTE 0 ;; CONTAINS THE TEST NUMBER 
001103 SERFLG: .BYTE 0 ; CONTAINS ERROR FLAG 
001104 000000 SICNT: WORD 0 3: CONTAINS SUBTEST ITERATION COUNT 
001106 000000 SLPADR: .WORD 0 7: CONTAINS SCOPE LOOP ADDRESS 
001110 000000 SLPERR: .WORD 0 7: CONTAINS SCOPE RETURN FOR ERRORS 
001112 000000 SERTTL: .WORD 0 :; CONTAINS TOTAL ERRORS DETECTED 
001114 000 SITEMB: .BYTE 0 7: CONTAINS ITEM CONTROL BYTE 
001115 SERMAX: .BYTE 1 ;;CONTAINS MAX. ERRORS PER TEST 
001116 000000 SERRPC: .WORD 0 ;: CONTAINS PC OF LAST FRROR INSTRUCTION 
001120 000000 $GDADR WORD 0 7; CONTAINS ADDRESS OF ‘GOOD’ DATA 
001122 000000 SBDADR WORD 0 3: CONTAINS ADDRESS OF ‘BAD‘ DATA 
001124 000000 $SGDDAT WORD 0 3;;CONTAINS ‘GOOD’ DATA 
001126 000000 $BDDAT WORD 0 7: CONTAINS "BAD* DATA 
001130 000000 WORD 0 7 ;RESERVED--NOT TO BE USED 
001132 000 «WORD OQ * 
001134 000 $AUTOB BYTE Q ; AUTOMATIC MODE INDICATOR 
001135 000 SINTAG BYTE 0 32: INTERRUPT MODE INDICATOR 
001136 000000 WORD 0 
601140 177570 SWR: D DSwWR ; ADDRESS OF SWITCH REGISTER 
001142 177570 DISPLAY WORD DDISP 7: ADDRESS OF DISPLAY REGISTER 
001144 177560 $TKS: 177560 37 TTY KBD STATUS 
001146 177562 $TKB: 177562 ;:TTY KBD BUFFER 
001150 177564 $STPS: 177564 37 TTY PRINTER St48US REG. ADDRESS 
001152 177566 STPB: 177566 sc; TTY PRINTER BUFFER REG. ADDRESS 
001154 000 $NULL: BYTE 0 3; CONTAINS NULL CHARACTER FOR FILLS 
001155 002 SFILLS: .BYTE 2 7; CONTAINS # OF FILLER CHARACTERS REQUIRED 
00115¢ 012 S$FILLC: .BYTE 12 77 INSERT FILL CHARS. AFTER A ‘LINE FEED" 
00115, 000 STPFLG: .BYTE 0 zi‘TERMINAL AVAILABLE'’ FLAG (B11<07>=0=YES) 
001160 000000 SREGAD: .WORD 0 ;:CONTAINS THE ADDRESS FROM 
szWHICH ($REGO) WAS OBTAINED 
001162 000000 $REGO: .WORD 0 :: CONTAINS (($REGAD) +0) 
001164 0 STMPO: .WORD 0 7; USER DEFINED 
001166 000000 STMP1: .WORD 0 ; USER DEFINED 
001170 000000 STMP2: .WORD 0 ; USER DEFINED 
001172 00 STMP3: .WORD 0 ;USER DEFINED 
001174 000000 $TMP4: .WORD 0 77USER DEFINED 
001176 000000 STIMES: 0 3:MAX. NUMBER OF ITERATIONS 
001200 000000 SESCAPE:0 ;;ESCAPE ON ERROR ADDRESS 
001202 207 377 377 $BELL: .ALCIZ <207><377><377> ;:CODE FOR BELL 
001206 077 $QUES: .ASCI] /2/ ; QUESTION MARK 
001207 015 SCRLF: .ASCI] <15> 37 CARRIAGE RETURN 
001210 012 000 $LF: ASCI1Z <12> 7iLINE FEED 


. 
PL ete eeaeereareerrereeeteeeeeeetereeeneeeheteeeeneeeeeeeeneeeteres 
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CZRMRAQ RMOS/3/2 
USER DEFINED TAGS SEQ 0029 
0 -SBTTL USER DEFINED TAGS 
001212 172540 SLKCSR: .WORD 172540 sADDR OF KWil=-P STATUS REGISTER 
001214 172542 $SLKCSB: .WORD 172542 ;ADDR OF KW11-P COUNTER BUFFER 
001216 000104 SLPVEC: .WORD 104 ;ADDR OF Kwil-P VECTOR 
001220 177546 $SLKS: .WORD 177546 sADDR OF KWIl-L STATUS REGISTER 
QO1222 000100 SLLVEC: .WORD 100 sADDR OF KWil-L VECTOR 
001224 000000 PORTA WORD QO sADDRESS OF PORT A 
001226 000000 PORTB: .WORD 0 sADDRESS OF PORT B 
001230 00000 PORTC: .WORD 0 sADDRESS OF DIFFERENT DRIVE 
001232 000000 RQSTA WORD 0 REQUEST BIT FOR PORT A 
901234 000000 RQSTB WORD 0 REQUEST BIT FOR PORT B 
001236 000000 ASR1 WORD 0 sATA“A OR ATA=B = 1 
001240 000000 PTNBR WORD 0 :CONTAINS THE PORT ADDRESS FOR ERROR TYPEOUTS 
001242 000000 SEIZPT: .wORD 0 ;CONTAINS THE ADDRESS OF THE SEIZING PORT 
001244 000000 OPPRT WORD 0 :CONTAINS THE ADDRESS OF THE ‘OPPOSITE’ PORT 
001246 000000 TSTNUM: .WORD 0 ;NUMBER OF THE CURRENT TEST 
001250 000000 CKERR: .WORD 0 :1F -1, A REGISTER MISCOMPARISON OCCURRED 
001252 000000 NOSEIZ: .WORD 0 :1F -1, THE PORT IN ‘SEIZPT’ DID NOT SEIZE THE DRIVE 
001254 000000 RELERR: .WORD 0 :1F =-1, THE PORT IN ‘SEIZPT* DID NOT RELEASE THE DRIVE 
001256 000000 TIME WORD 0 sELAPSED TIME COUNTER 
001260 000000 WATCH WORD Q WATCH DOG TIMER LOCATION 
001262 000000 TIMEA WORD QO ;THE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH PORT A 
001264 000000 TIMEAP: .WORD 0 ;PORT A TIMEOUT VALUE + 25% 
001266 000000 TIMEAM: .WORD 0 :PORT A TIMEOUT VALUE = 25% 
001270 Guv000 TIMEB: .WORD 0 sTHE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH PORT B 
001272 000000 TIMEBP: .WORD 0 sPORT A TIMEOUT VALUE + 25% 
001274 000000 TIMEBM: .WORD 0 PORT B TIME VALUE = 25% 
001276 000000 TIMES: .WORD 0 STORAGE FOR TIMEOUT ONE-SHOT RETRIGGER TEST 
001300 000000 KYBCTL: .WORD 0Q SINGLE TEST INDICATOR 
001302 000000 CHGADR: .WORD 0 ; CHANGE THE RH/RM ADDRESS INDICATOR 
-SBTTL RH/RM UNIBUS AND VECTOR ADDRESSES 
001304 176700 SRMADR: .WORD 176700 ;RH/RM UNIBUS ADDRESS 
001306 000254 SRMVEC: .WORD 254 ; INTERRUPT VECTOR ADDRESS 


CZRMRAO RMO5/3/2 DU POR TST 1 


ERROR POINTER TABLE 


0 


rans aaaetemens ili meanems te cakemeeak eae cee eee 


WARE PIPENIMININONDNY — SS ss 


32 


001326 


001330 


001336 


001340 


001346 


001350 


001366 


072076 
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-SBTTL ERROR POINTER TABLE 


>*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
s*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
;*LOCATION SITEMB. ant? NUMBER INDICATES WHICH ITEM IN THE + PERTINENT. 


:*NOT El: 


:*NOTE2: 


SERRTB: 
sERROR 1 


sERROR 2 


sERROR 3 


ERROR 4 


sERROR 5 


sERROR 6 


IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (S$ERR 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


:;POINTS TO THE ERROR MESSAGE 
;;POINTS TO THE DATA HEADER 
;;POINTS TO THE DATA 

:;POINTS TO THE DATA FORMAT 


sWRONG DRIVE TYPE 


;DRIVE NOT ON LINE 


sSERIAL NUMBERS NCT THE SAME 


DRIVE NOT SEIZED BY PORT 'N' 


;WRONG STATUS SEEN BY THE SEIZING PORT 


sREGISTER CONTENTS WERE SEEN BY OPPOSITE PORT = DRIVE WAS SEIZED 


SEQ 0030 


-. 
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ERROR POINTER TABLE SEQ 0031 
43 
re sERROR 7 
46 001370 072422 EM7 REGISTER CONTENTS INCORRECT AFTER RELEASE/TIMEOUT 
47 001372 077037 DH7 
48 001374 100472 DT7 
“3 001376 100711 DF7 
2) ;ERROR 10 
$3 001400 072503 EM10 REGISTER CONTENTS INCORRECT 
54 001402 076763 DHS 
55 001404 100440 DT5 
8 001406 100703 DFS 
es sERROR 11 
60 001410 072533 EM11 ;CONTROL BUS PARITY ERROR WHILE READING REGISTER 
61 001412 077162 DH11 
62 001414 100410 DT1 
o 001416 100676 DFI 
2 sERROR 12 
67 001420 072617 EM12 DRIVE NOT SEIZED BY DRIVE CLEAR COMMAND 
68 001422 077727 DH36 
69 001424 100600 D137 
9 001426 100724 DF 36 
4 ERROR 13 
74 001430 072667 EM13 "VOLUME VALID" BIT NOT SET BY READIN PRESET 
75 001432 077233 DH13 
76 001434 100512 D113 
a 001436 100703 DFS 
44 sERROR 14 
81 001440 072754 EM14 ;"VOLUME VALID" SET ON THE OPPOSITE PORT 
82 001442 077233 DH13 
83 001444 100512 D113 
ee 001446 100703 DFS 
a ERROR 15 
88 001450 073017 EM15 THE ATTN BIT WRONG AFTER TIMEOUT = REQUEST NOT SET 
89 001452 077037 DH7 
90 001454 100472 DI7 
4 001456 100711 DF7 
93 sERROR 16 
95 001460 073076 EM16 ;ATTIN BIT WRONG AFTER RELEASE = REQUEST WAS SEI 
96 001462 077037 DH7 
97 001464 100472 D17 
100711 DF? 


98 001466 
99 


CZRMRAD RMO5/3/2 DU POR 


ERROR POINTER TABLE 


001470 


001476 


001500 


001526 


001530 


001536 


001540 


0 
Tank th 
100720 


073450 
077451 


G 3 
TST 1 MACRO V03.01 11-APR=80 14:26:10 PAGE 7-2 


;ERROR 17 
—EM17 ATTN BIT WRONG AFTER RELEASE = REQUEST NOT SET 


EM20 DRIVE NOT SEIZED WHEN ATTN BIT FOR PORT CLEARED 


ERROR 21 
EM21 ;DRIVE SEIZED WHEN ZERO WRITTEN IN ATTN BIT FOR PORT 


EM22 DRIVE NOT IN NEUTRAL AFTER TIMEOUT, REQUEST NOT SET 


sERROR 23 
EM23 ; TIMEOUT CLEARED THE DRIVE'S ERROR BIT 


sERROR 24 
EM24 ;RELEASE COMMAND RELEASED DRIVE WITH ERRORS SET 


;ERROR 25 
EM25 ; TIMEOUT ONE-SHOT DID NOT RETRIGGER 


sERROR 26 
EM26 DRIVE NOT IN NEUTRAL AFTER RELEASE, REQUEST NOT SET 


SEQ 0032 
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ERROR POINTER TABLE SEQ 0033 
157 
12 sERROR 27 
160 001570 073725 EM27 sREGISTER WRONG AFTER RELEASE WITH REQUEST SET 
161 001572 077037 DH7 
162 001574 100472 D17 
163 001576 100711 DF? 
+44 sERROR 30 
167 001600 074003 EM30 sDRIVE SEIZED BY RELEASE ISSUED WHEN DRIVE IN NEUTRAL 
168 001602 077727 DH36 
169 001604 100570 D136 
Ha 001606 100724 DF 36 
172 sERROR 31 
174 001610 074100 EM31 DRIVE NOT SEIZED BY PORT AFTER RELEASE WIITH REQUEST SET 
175 001612 077630 DH31 
176 001614 100556 D131 
$4 001616 100720 DF31 
4a sERROR 32 
181 001620 074155 EM32 sATTN BIT WRONG AFTER RECALIBRATE COMMAND 
182 001622 076763 DH5 
183 001624 100440 DTS 
+ 001626 100703 DFS 
186 sERROR 33 
188 001630 074226 EM33 DRIVE RETURNS TO NEUTRAL IF DRIVE CLEAR GIVEN WHILE DRIVE SEIZED 
189 001632 077727 DH36 
190 001634 100570 D136 
4 001636 100724 DF 36 
193 ZERROR 34 
195 001640 074330 EM34 DRIVE RETURNS TO NEUTRAL IF MASSBUS INIT GIVEN WHILE DRIVE SEIZED 
196 001642 077727 DH36 . 
197 001644 100570 D136 
+s 001646 100724 DF 36 
2 sERROR 35 
202 001650 074433 EM35 DRIVE DID NOT RETURN TO NEUTRAL BY TRIGGERING TIMEOUT ONE SHOT 
203 001652 077727 DH36 
204 001654 100600 D137 
44 001656 100724 DF 36 
$0 sERROR 36 
209 001660 074512 EM36 TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS 
210 001662 077727 DH36 
211 001664 100570 D136 
6 001666 100724 DF 36 
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ERROR POINTER TABLE SEQ 0034 
a sERROR 37 
216 001670 074564 EM37 sDRIVE 1S NON-EXISTENT 
217 001672 077727 DH36 
218 001674 100600 D137 
3h 001676 100724 DF 36 
$s) sERROR 40 
223 001700 074632 EM4O sATTENTION FOR PORT NOT RESET By MASSBUS CLEAR 
224 001702 076520 DH1 
225 001704 100542 D123 
$38 001706 100676 DF 1 
e208 ZERROR 41 
230 001710 074707 EM41 ;TIMEOUT CLEARED ATTENTION BIT 
231 001712 077451 DH23 
232 001714 100542 D123 
233 001716 100676 DFI 
234 
$39 sERROR 42 
237 001720 074751 FM42 ;DRIVE NOT IN NEUTRAL OR SEIZED 
238 001722 077756 DH42 
239 001724 100610 DT42 
me 001726 100727 DF42 
so§ ZERROR 43 
244 001730 075037 EM43 DRIVE IN NEUTRAL AFTER ATTENTION BIT WRITTEN 
245 001732 077756 DH42 
246 001734 100610 DT42 
td 001736 100727 DF42 
4 ZERROR 44 
251 001740 075114 EM44 ;WRITE ATTENTION 8I1T DID NOT SET PORT REQUEST 
252 001742 077775 DH44 
253 001744 100556 D131 
$3 001746 100720 DF31 
236 sERROR 45 
258 001750 075171 EM45 CONTROLLER SELECT SWITCH ON DRIVE NOT IN ‘A/B' 
259 001752 076520 DH1 
260 001754 100410 DT1 
261 001756 100676 DF 1 
262 
$63 ZERROR 46 
265 001760 075250 EM46 CAN'T ACCESS DRIVE THROUGH EITHER PORT 
266 001762 100073 DH46 
267 001764 100616 D146 
508 001766 100720 DF 31 


270 ZERROR 47 
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ERROR POINTER TABLE SEQ 0035 
$f) 001770 075317 EM47 TIN BIT z T 
b sATIN BIT FOR SEIZING PORT NOT CLEARED BY DRIVE CLEAR 
273 001772 077451 DH23 : 
274 001774 100542 D123 
sf? 001776 100676 DF 
sre sERROR 50 
279 002000 075405 EMSO ;ATTN BIT FOR OPPOSITE PORT CLEARED BY DRIVE CLEAR COMMAND 
280 002002 077233 DH13 
281 002004 100512 D113 
one 002006 100703 DFS 
sae sERROR 51 
286 002010 075467 EMS1 ;ATIN BIT NOT CLEARED BY MASSBUS INIT, DRIVE IN NEUTRAL 
287 002012 076763 DHS 
288 002014 100440 DT5 
289 002016 100703 DFS 
290 
$3) sERROR 52 
293 002020 075556 EM52 sATIN BIT SET AFTER TIMEOUT, ‘ERR’ SET, NO REQUEST 
294 002022 077233 DH13 
295 002024 100512 D113 
$8 002026 100703 DFS 
$35 sERROR 53 
300 002030 075651 EM53 CAN'T READ ATTN BIT FROM OPPOSITE PORT 
301 002032 077451 DH23 
302 002034 100410 DT1 
ee 002036 100676 DF1 
oH sERROR 54 
307 002040 075732 EM54 RELEASE COMMAND RECOGNIZED WHEN ISSUED BY NON=SEIZING PORT 
308 002042 077353 DH22 
309 002044 100630 D154 
4 002046 100720 DF31 
a5 ERROR 55 
314 002050 076025 EMS5 TIMEOUT ONE=SHOT 1S LESS THAN 500 MS 
315 002052 100170 DHSS 
316 002054 100642 D155 
th 002056 100731 DF55 
$5 ERROR 56 
321 002060 076072 EM56 sRH/RM DIDN'T RESPOND TO ADDRESSING 
322 002062 100246 DH56 
323 002064 100654 D156 
324 002066 100735 DF56 
325 
326 
327 ERROR 57 
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ERROR POINTER TABLE SEQ 0036 
328 
329 002070 076135 —MS7 ;PORT REQUEST FLOPS WRONG 
330 002072 100255 DH57 
331 002074 100660 D157 
$86 002076 100703 DFS 
$3 sERROR 60 
336 002100 076176 EM60 ATTENTION BITS NOT RESET BY RMAS 
337 002102 076763 DHS 
338 002104 100440 DTS 
339 002106 100703 pFSs 
340 
$3 ERROR 61 
343 002110 076242 EM61 ATTENTION NOT RESET BY GO 
344 002112 077451 DH23 
345 002114 100542 D123 
a6 002116 100676 DF 
us ERROR 62 
350 002120 076274 EM62 ATTENTION RESET BY GO WHEN NOT SEIZED 
351 002122 077233 DH13 
352 002124 100512 D113 
Sez 002126 100703 DFS 
fee ERROR 63 
357 002130 076342 EM63 DRIVE SEIZED BY UNIT READY CHANGE 
358 002132 077727 DH36 
359 002134 100570 D136 
of 002136 100724 DF 36 
4) ERROR 64 
364 002140 076404 EM64 ATTENTION NOT SET BY UNIT READY CHANGE 
365 002142 077037 DH7 
366 002144 100472 DT7 
367 002146 100711 DF7 
368 
44 ERROR 65 
371 002150 076453 EM65 sVV NOT RESET BY UNIT READY 
372 002152 076763 DHS 
373 002154 100440 D15 
ge 002156 100703 DFS 
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ERROR POINTER TABLE SEQ 0037 
} + THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 
3 002160 011600 BADTMO: MOV (SP) ,RO sSAVE PC WHERE THE TIME OUT OCCURED 
4 002162 005740 TST =(RO) ADJUST =¢ 
5 002164 022626 CMP (SP)+,(SP)+ ;RESTORE STACK POINTER 
6 002166 104401 002174 TYPE ,605$ is TYPE ASCIZ STRING 
002172 000417 BR 648 :GET OVER THE ooco 
33658: .ASCIZ <CRLF>/UNEXPECTED BUS TIMEOUT, PC=/ 
002232 64$: 
7 002232 010046 MOV RO,-(SP) ;SETUP FOR TYPING OUT PC 
8 002234 104402 TYPOC 
9 002236 000240 NOP :PUT 'HALT(O)" INSTRUCTION HERE IF YOU WISH 
4 :TO STOP ON UNEXPECTED TIMEOUT. 
‘¢ -SBTTL START OF PROGRAM 
14 002240 005037 001302 START: CLR CHGADR CLEAR THE "CHANGE RH/RM ADDRESS* INDICATOR 
‘2 002244 000403 BR START2 :GO TO THE START 
4 002246 012737 177777 001302 STARTI: MOV #-1,CHGADR sSET THE ‘CHANGE RH/RM ADDRESS‘ INDICATOR 
19 002254 000240 START2: NOP 
20 002256 005227 000000 INC #0 TTY LOOP, WAIT FOR INCREMENT 
21 002262 001375 BNE 274 OF WORD 
$¢ 002264 000005 RESET : CLEAR THE WORLD 
24 -SBTTL INITIALIZE THE COMMON TAGS 
:;CLEAR THE COMMON TAGS (S$CMTAG) AREA 
002266 012706 001100 MOV ASCMTAG,RO ::FIRST LOCATION TO BE CLEARED 
002272 005026 CLR (R6)+ Shs MEMORY LOCATION 
002274 022706 001140 CMP #SWR,R6 E? 
002300 001374 -6 ;LOOP BACK IF NO 
002302 012706 001100 WSTACK, SP SETUP THE STACK POINTER 
ss INITIALIZE A FEW VECTORS 
002306 012737 066360 000020 WSSCOPE ,QMIOTVEC ;;10T VECTOR FOR SCOPE ROUTINE 
002314 012737 000340 000022 MOV #340,aslOTVEC+2 ;:LEVEL 7 
002322 012737 066612 000030 MOV #SERROR, AWEMTVEC ft VECTOR FOR ERROR ROUTINE 
002330 012737 000340 000032 MOV W340, aWEMTVEC+2 ;:LEVEL 7 
02336 012737 071464 000034 MOV #STRAP , A#TRAPVEC STRAP VECTOR FOR TRAP CALLS 
002344 012737 000340 000036 MOV #340, aa TRAPVEC#2;L L 7 
002352 013737 065750 065742 MOV SENDCT ,SEOPCT SETUP END-OF -PROGRAM COUNTER 
002360 005037 001176 CLR STIMES SEINITIALIZE NUMBER OF ITERATIONS 
002364 005037 001200 CLR SESCAPE :;CLEAR THE ESCAPE ON conn ADDRESS 
002370 112737 000001 001115 MOVB jer ;;ALLOW ONE ERROR PER TEST 
002376 012737 002376 001106 MOV ee ye ty Ma THE LOOP ADDRESS FOR SCOPE 
002404 012737 002404 001110 MOV #.,SLPERR P THE ERROR LOOP ADDRESS 
SIZE FOR A HARDWARE SWITCH REGISTERS IF NOT FOUND OR IT IS 
;;EQUAL TO A ‘'=1"'. SETUP FOR ; SOFTWARE SWITCH REGISTER. 
002412 013746 000004 Mov @#ERRVEC,-(SP) ;;SAVE ERROR VECTOR 
002416 012737 002452 000004 MOV #64$, gage RRVEC ::SET UP ERROR VECTOR 
002424 012737 177570 001140 MOV #OSWR, SWR ;;SETUP FOR A HARDWARE SWICH REGISTER 
002432 012737 177570 001142 MOV WDDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
002440 022777 177777 176472 CMP #1, aSUR 2: TRY TO REFERENCE HARDWARE SwWR 
002446 001012 BNE 668° :;BRANCH IF NO TIMEOUT TRAP OCCURRED 
::AND THE HARDWARE ri IS NOT = -1 
002450 000403 BR 65% ; BRANCH IF NO TIMEOU 
002452 012716 002460 64$: MOV #65$, (SP) ::SET UP FOR TRAP RETURN 


— CZRMRAO RMO5/3/2 DU POR TST 1 


INITIALIZE THE COMMON TAGS 


002456 000002 
0127 f 000176 
7 


7 000174 
002474 0126 000004 


25 

26 002500 012737 002160 

27 002506 012737 0060300 

28 002514 012746 000140 
002520 012746 002526 
002524 000002 
002526 

29 

30 


002526 005227 177777 
002534 022737 066104 
002544 104401 002602 
002550 005737 000042 
002556 023727 001140 


002572 112737 000001 


002600 000431 
002664 


16 177771 


- 

w 

i=] 

o 

Nm 

¥ 
o—-Oooooo°o°o]-—o 
ousk—£oOo—-coon 


48 002764 
002770 104403 
002772 
002773 

49 002774 1 

50 003000 0 
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RT] 
001140 658: MOV ASWREG, SWR 
001142 MOV #DISPREG ,DISPL 


ee TO SOFTWARE SwR 


66$: MOV (SP)+ aPERRVEC. " | :RESTORE ERROR VECTOR 
;SETUP ‘'TIMEOUT’' TRAP ah take FOR UNEXPECTED BUS TIMEOUTS 
000004 MOV MBADTMO ,ERRVEC ETUP FOR UNEXPECTED TIMEOUT 
000006 MOV #PRO ERRVEC+2 SLEVEL 6 


MOV #PR3,=(SP) ;;PUT NEW PS ON STACK 
MOV #67$,-(SP) ;;PUT NEW PC ON STACK 
67$ RT] ;:POP NEW PC AND PS 


-SBTTL TYPE PROGRAM NAME 
;; TYPE — a PROGRAM IF FIRST PASS 


zsFIRST TIME? 
BNE 68$ ;;BRANCH IF NO 
000042 CMP ASENDAD ,a#42 3ACT=11? 
rhe 68$ soor IF YES 


YPE ,69$ YPE ASCIZ STRING 
-SBTTL cer VALUE FOR SOFTWARE sult cy REGISTER 
aa42 ARE WE ae UNDER XXDP/ACT? 


BNE 70$ ;:BRANCH IF YES 

000176 CMP SWR ,#SWREG SOFTWARE SWITCH REG SELECTED? 
BNE 71$ ;sBRANCH IF NO 
oa 32:GET SOFT-SWR SETTINGS 


B 71$ 
001134 70$: MOVB #1,$AUTOB 3:SET AUTO-MODE INDICATOR 
:GET OVER THE ASCIZ 


BR 68$ 
;;69$: .ASCIZ <CRLF>@CZRMRAO - * M05 /3/2 DUAL PORT LOGIC TEST, 


68$ 
JSR PC, STKINT ;SETUP THE TTY KEYBOARD 
1$ JSR PC ,CHANGE > CHECK/CHANGE THE RH/RM ADDRESS 
TYPE eENTERA sENTER DRIVE ADDRESS 
RDOCT GET THE ADDRESS 
MOV (SP)+,PORTA STORE THE ADDRESS 
000007 CMP PORTA,#7 SEE IF ADDRESS TOO LARGE 
BLOS 2$ BR IF NOT 
ht ’ on ‘TRY eg ERROR MESSAGE 
001226 2s: MOV PORTA,PORTB ;GENERATE THE PORT B ADDRESS 
INC PORTB : INCREMENT THE ADDRESS 
001226 BIC #16,PORTB LEAVE BIT 0 
MOV PORTA, ~(SP) :PUT _ A_ ADDRESS ON THE STACK 
BIC #°C6, (SP) SAVE BITS 1 & 
BIS (SP)+,PORTB :SET Bits 1 & 2 IN PORT B ADDRESS 
TYPE ,PORTAIS ;"PORT A ADDRESS IS ' 


MOV PORTA,=(SP) i: SAVE PORTA FOR TYPEOUT 


::TYPE PORT A ADDRESS , 


TYPOS 3:60 amen Bh ASCI1 
rie } ety 1 DIGITS 

BYTE 0 bs Ae i LEADING ZEROS 
TYPE -PORTBIS T B ADDRESS IS ' 


MOV PORTB,~(SP) ee PORTB FOR TYPEOUT 


:: TYPE PORT B ADDRESS 


PART 1a<CRLF> 


SEQ 0038 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0039 

003004 104403 TYPOS 3360 TYPE=-OCTAL ASCII 
003006 001 BYTE 1 si TYPE 1 DIGIT(S) 
003007 000 BYTE 0 : : SUPPRESS LEADING ZEROS 

51 003010 104401 001207 TYPE »SCRL s;ANOTHER CRLF 

52 003014 013737 001224 001230 MOV BORTAY PORTC : GENERATE ADDRESS OF DRIVE NOT TESTED 

53 003022 062737 000006 001230 ADD #6, PORTC ;COMPLEMENT SOME BITS 

54 003030 042737 177770 001230 BIC aC? PORTC ; SAVE ONLY LOWER BITS 

55 003036 013701 001224 MOV PORTA,R1 USE PORT A ADDRESS AS INDEX 

56 003042 116137 101052 001236 MOVB ATABIT(R1),ASR1 :GET ATTENTION BIT FOR DRIVE 

59 003050 005037 001262 CLR TIMEA :CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
003054 005037 001264 CLR TIMEAP :CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
003060 005037 001270 CLR TIMEB ;CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
003064 005037 001272 CLR TIMEBP -;CLEAR TIMEOUT ONE=SHOT VALUE LOCATION 

60 003070 004737 066124 JSR PC,CKCLK SETUP CLOCK 

61 003074 0001 003110 JMP EXEC CLOCK HAS BEEN STARTED 

62 003100 104401 071675 TYPE »NOCLOCK NO CLOCK ON SYSTEM 

63 003104 000000 3$: HALT sFATAL ERROR 

o% 003106 000776 BR 3$ s INTERLOCK THE HALT 

* ROUTINE TO GET THE TEST NUMBER FROM THE OPERATOR 

68 003110 000005 EXEC: RESET CLEAR EVERYTHING 

69 003112 005037 177776 CLR PS CLEAR THE PROCESSOR STATUS WORD 

70 003116 104401 001207 TYPE ,$CRLF sCR=L 

71 003122 013700 001304 MOV SRMADR,RO ;RH/RM ADDRESS FOR INDEXING 

72 003126 012706 601100 MOV #STACK,SP LOAD STACK POINTER 

73 003132 004737 066124 JSR PC,CKCLK START THE CLOCK 

74 003136 000240 NOP :RETURN IF NO CLOCK 

75 003140 004737 070074 JSR PC,STKINT SINITIALIZE™ THE KEYBOARD 

76 003144 005037 001300 CLR KYBCTL CLEAR SINGLE TEST INDICATOR 

77 003150 005037 001100 CLR SPASS [CLEAR THE PASS COUNT 

78 003154 112737 000001 001115 MOVB #1, SERMAX SET ERROR MAX TO 1 

79 003162 012737 003162 001106 MOV ‘. »SLPADR INITIAL SETTING FOR LOOP ADDRESS 

80 003170 012737 003170 001110 MOV W, (SLPERR INITIAL SETTING FOR LOOP ON ERROR ADDRESS 

81 003176 104401 071733 1$: TYPE ,TESTNO ;ASK FOR TEST NUMBER 

82 003202 104412 RDOCT GET THE NUMBER 

83 003204 012601 MOV (SP)+,R1 PUT ENTRY INTO R1 

84 003206 001002 BNE 2$ ;8R IF NOT ZERO 

85 003210 000137 003376 JMP TST1 ENTER ZERO - PERFORM ALL TESTS 

86 003214 020137 101062 2$: CMP R1,MAXTN 7SEE IF NUMBER GREATER THAN MAXIMUM 

87 003220 003403 BLE 3$ BR IF LESS OR EQUAL 

88 003222 104401 071753 TYPE ~BADNO ;BAD ENT 

89 003226 000763 BR 1$ : TRY AGAIN 

90 003230 005301 3$: DEC R1 ;DECREMENT Ent 

91 003232 006301 ASL R1 SHIFT IT LEFT 

92 0032% 016137 100736 003260 MOV TSTADR(R1),4%  ;GET THE TEST ADDRESS 

93 003242 005237 001300 INC KYBCTL SET SINGLE TEST INDICATOR 

94 003246 012737 000001 001104 MOV #1,$I1CNT [PRESET ITERATION COUNT 

95 003254 000177 000000 JMP aug :G0 TO THE SELECTED TEST 

5 003260 000000 4$: -WORD 0 TEST ADDRESS GOES HERE 

. ; CHANGE THE RH/RM UNIBUS ADDRESS USED BY THE PROGRAM 

100 003262 005737 001302 CHANGE: TST CHGADR CHANGE THE ADDRESS ? 

101 003266 001421 BEQ 3$ ‘BR IF NOT 

102 003270 005037 001302 CLR CHGADR ;CLEAR THE INDICATOR 

103 003274 104401 072012 I$: TYPE ,ADDRIS TYPE OUT WHAT THE PRESENT ADDRESS IS 


CZRMRAO 


GET VALUE 


a kt at st ot 
eo os OOOO O 


NOUS WN —OOONOu 


ee ee ee ee ee 
WWWAwannn 
COnONrw—OCOW 


RMO 


003376 


003462 
003470 
003476 


Pp 


oot 
mo mo 


000207 


013700 


TST 1 
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SWITCH REGISTER 


001304 


001207 
072047 


001304 
003352 


001304 
000002 


000004 
000006 


001304 


000001 
000040 


001224 
001224 
000012 


000004 


000004 


001300 
001106 
001110 
001102 
001176 


000010 


000010 
001240 


2$: 
3$: MOV 
4$: 
5$: MOV 


TSTIAA: MOV 


#TEST 1 


:*VERIFY THAT THE DRIVE IS ACCESSIBLE TO BOTH PORTS 


A. SELECT DRIVE, VERIFY THAT THE DRIVE IS PRESENT, ; 
DRIVE 1S A DUAL PORT RMOS, RMO3 OR ont AND THAT THE Dh.vE 
1S ONLINE (RMDS HAS ‘MOL’, 

AND > Fie, DRIVE SERIAL NUMBER EAD THROUGH BOTH PORTS IS 


THE $ 


we; @ ee @e ee eee 


MOV 


MOVB 


MOV 
TST 


SRMADR ,=(SP) 


» SCRLF 
oNTRH11 


(SP) 

2$ 

(SP) ,SRMADR 
(SP)¢ 

W4$ 084 


4 

SRMADR RO 
RMWC (RO) 
5$ 


56 
#4 ,SP 
1$ 
96,084 
PC 


SRMADR ,RO 


;PUT THE ADDRESS ON THE STACK 
; TYPE THE ACTUAL ADDRESS 


; CRLF 
;ASK FOR NEW ADDRESS 


:0 OR "CR' ENTERED 

BR IF EITHER ENTERED (NO ADDRESS CHANGE) 
NEW RH/RM ADDRESS 

; CORRECT iy IL + POINTER 


LOAD TRAP 


;GET RH/RM ADDRESS 
;RESPONDS AT THAT ADDRESS ? 


:BR IF YES 


. 


;;RESTORE RO AFTER END OF PASS 


: RRA RAR RRA RE REET EET EERE RRKAERAeAHeRe eee Kee eee 


sRESET THE ip Pe ants 


GET ADDRESS 


RESTORE THE VECTOR 
RETURN 


NEUTRAL ACCESS TEST 


EXEC 
#-1 , KYBCTL 
#TEST1,$LPADR 
#TESTI,SLPERR 


#1,S$TSTNM 
#STACK,SP 
#1, STIMES 


#CLR,RMCS2(RO) 


shy lS faa 
PORTA,PTNBR 
RMDS (RO) 


*PGM', 


B. ‘'4E TEST 1S REPEAIED THROUGH BOTH PORTS. 


ORR ORK HHRT ARETE TEKH ETT TEER A REET A EERE eRe eee eee 
;PERFORMING ONLY SINGLE TEST ? 
;BR IF NOT 


;BR_IF JUST ENTERED TEST 
;RETURN & GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
;SETUP ERROR LOOP ADDRESS 


sMOVE #1 TO TEST NUMBER 
;LOAD THE STACK POINTER 
3;D0 1 ITERATION 
SINITIALIZE THE MASSBUS 
; VERIFY THAT DRIVE 1S PRESENT THROUGH PORTS A&B 
>SELECT PORT A 


:MOvE PORT ADDRESS TO LOCATION FOR TYPEQOUT 
:SEE IF DRIVE (PORT A) PRESENT 


& ‘DRY’ BITS SET), 


SEQ 0040 


CZRMRAO mpd +h ode 
im NEU 


Mn 


OUFw 


DU POR TST 1 
SS TE 


L ACCESS TEST 
005037 001250 
016037 000010 
012737 000010 
060037 001122 
005037 001124 
013737 001126 
042737 167777 
023737 001124 
001414 

013737 001126 
042737 010000 
055737 001174 
104037 

005137 001250 
000240 

005737 001250 
001403 

012760 000040 
113760 001226 
013737 001226 
005760 000012 
005037 001250 
016037 000010 
012737 000010 
060037 001122 
005037 001124 
013737 001126 
042737 167777 
023737 001124 
001414 

013737 001126 
042737 010000 
053737 001174 
104037 

005137 001250 
000240 

005737 001250 
001403 

01276C 000040 
113760 001224 
013737 001224 
005037 001250 
016037 0026 
012737 000026 
060037 001122 
012737 024027 
022737 024024 
001413 

022737 024025 
001407 

023737 001124 
001403 

104001 

005137 001250 
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CLR CKE CLEAR THE CHECK ERROR INDICATOR 
001126 MOV AME SO(RO), SBDDAT’ :GET CONTENTS OF RMCS2 
001122 MOV #RMCS2,SBDADR "sok REGISTER AobRes oF ERROR MES5AGE 
ADD RO, SBDADR sADD RH/RM BASE A DRESS 
CLR $GODAT ;WHAT REGISTER pas BE 
001164 MOV SBDDAT, STMPO MOVE REGISTER CONTENTS TO "STMPO' 
001164 BIC #*CNED{STMPO :SAVE SPECIFIED BITS 
001164 CMP SGDDAT,$TMPO ° ;COMPARE THE BITS 
BEQ 64$ [BR IF OK 
001174 MOV SBDDAT,STMPG = :COPY "BAD DATA’ 
001174 BIC #NED,STMPG [CLEAR THE MASKED BITS 
001124 BIS $TMPS ,SGDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
643: NOP 
TST CKERR ;WAS "NED' SET ? 
BEQ +10 F NOT 
000010 MOV #CLR,RMCS2(RO) ISSUE MAS SBUS INIT TO CLEAR "NED' 
000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT B 
001240 MOV PORTB.PTNBR ;MOVE PORT ADDAESe TO LOCATION FOR TYPEOUT 
1ST RMDS (RO) SEE IF DRIVE (PORT B) PRESENT 
CLR CKERR CLEAR THE "CHECK ERROR’ INDICATOR 
001126 MOV RMCS2(RO).SBDDAT’ >GET CONTENTS OF RMCS2 
001122 MOV #RMCS2, SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO, SBDADR ADD RH/RM BASE ADDRE SS 
CLR $GODAT ‘WHAT REGISTER SHOULD BE 
001164 MOV SBDDAT,STMPO = :MOVE REGISTER CONTENTS TO '$STMPO' 
001164 BIC #*°CNED{STMPO SAVE SPECIFIED BIT 
001164 CMP SGDDAT.STMPO ° ; COMPARE THE Bits: 
BEQ 66$ ‘BR IF OK 
001174 MOV SBDDAT,STMP4 = :COPY "BAD DATA' 
001174 BIC #NED ,STMP4 “CLEAR THE MASKED BITS 
001124 BIS $IMP4,SGDDAT :"OR' WITH GOOD DATA FOR TYPEOUT 
COM CKERR 7SET THE REGISTER COMPARE ERROR INDICATOR 
66$: NOP 
1ST CKERR :WAS "NED" SET ? 
BEQ +10 :BR IF NOT 
000010 MOV #CLR,RMCS2(RO) :1SSUE MASSBUS INIT TO CLEAR 'NED* 
;CONFIRM THAT DRIVE 1S AN RMOS, RMO3 OR RMOZ AND IS DUAL PORTED 
000010 MOVB  PORTA,RMCS2(RO) ;SELECT PORT A 
001240 MOV PORTA.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CLR CKERR ZCLEAR THE ‘CHECK ERROR’ INDICATOR 
001126 MOV RMDT(RO),SBDDAT ;GET CONTENTS OF RMDT 
001122 MOV RADI gSBDADR FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO,$ ADD RH/RM BASE ADDRESS 
001124 MOV FOSebo?. SGDDAT ‘WHAT REGISTER SHOULD BE 
001126 CAP #024024, $BDDAT :DUAL F PORT RMO3 ? 
001126 CAP #020025 .8B0DAT : DUAL ‘PORT RMO2 ? 
001126 CMP $GDDAT, SBDDAT Ts THE REGISTER OK ? 
BEd 68% ‘BR IF OK 


1 
COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 


SEQ 0041 


D4 
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NEUTRAL ACCESS TEST SEQ 0042 
004072 000240 68$: NOP 
004074 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
004102 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PO “+ ADDRESS TO LOCATION FOR TYPEOUT 
004110 005037 001250 CLR CKERR ;CLEAR THE ‘CHECK ne al INDICATOR 
004114 016037 000026 001126 MOV RMDT(RO),SBDDAT ;GET CONTENTS OF RMDT 
004122 012737 000026 001122 MOV 4 AE SBDADR FORM REGISTER ADDRESS OF ERROR MESSAGE 
004130 060037 001122 ADD BDADR ;ADD_RH/RM BASE ADDRESS 
0046134 012737 024027 001124 MOV Hodebor. SGDDAT WHAT REGISTER SHOULD BE 
004142 022737 0246024 001126 CMP #024024 ,$BDDAT :DUAL ,PORT RMO3 ? 
004150 001413 BEQ 70$ YES 
004152 022737 024025 001126 CMP #024025, $BDDAT :DUAL "PORT RMO2 ? 
004160 001407 BEQ 70$ YES 
004162 023737 001124 001126 CMP SGDDAT,SBDDAT 315 THE — OK ? 
004170 001403 BEQ 70$ :BR IF 
004172 104001 EMT 1 
004174 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
160 004200 000240 70$: NOP 
103 ;VERIFY THROUGH BOTH PORTS THAT THE DRIVE IS ON LINE AND IN NEUTRAL 
167 004202 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
004210 013737 001224 001240 MOV POR oe PTNBR a 44 ADDRESS TO LOCATION FOR TYPEOUT 
004216 005037 001250 CLR CKERR ;CLEAR THE ‘CHECK ERROR’ INDICATOR 
004222 016037 000012 001126 MOV RMDS(RO) ,SBDDAT hd CONTENTS OF RMDS 
006230 012737 000012 001122 MOV WRMDS,SBOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
004236 060037 001122 ADD RO, $BDADR ;ADD _RH/RM BASE ADDRESS 
004242 012737 001000 001124 MOV #PGM,SGDDAT ;WHAT REGISTER SHOULD BE 
004250 013737 0 1126 001164 MOV SBDDAT,$TMPO MOVE REGISTER ems TO 'STMPO* 
004256 042737 1/6777 001164 BIC #*CPGM,SIMPO ;SAVE SPECIFIED BITS 
004264 023737 001124 001164 CMP SGDDAT ,STMPO SS tay THE BITS 
004272 001414 BEQ 72$ :BR OK 
004274 013737 001126 001174 MOV SBDDAT ,STMP4 COPY. "BAD DATA’ 
004302 042737 001000 001174 BIC #PGM,STMPG ;CLEAR THE MASKED BITS 
004310 053737 001174 001124 BIS STMP4 ,SGDDAT OR" WITH GOOD DATA FOR TYPEOUT 
004316 104045 EMT 45 
004320 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
004324 000240 72$: NOP 
004326 005037 001250 CLR CKERR ;CLEAR THE ‘CHECK ERROR INDICATOR 
004332 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
004340 012737 000012 001122 MOV #RMDS ,SBDADR : FORM REGISTER ADDRESS OF ERROR MESSAGE 
004346 060037 001122 ADD RO, $BDADR ADD RH/RM BASE ADDRESS 
004352 012737 010600 001124 MOV #MOL!DPR'DRY, SGDDAT sWHAT REGISTER SHOULD BE 
004360 013737 001126 001164 MOV SBODAT ,STMPO ;MOVE REGISTER CONTENTS TO 'STMPO" 
004366 042737 167177 001164 BIC #10600. STMPO SAVE SPECIFIED BITS 
004374 023737 001124 001164 CMP SGDDAT, STMPO COMPARE THE BITS 
004402 001414 BEQ 74$ ;BR IF OK 
004404 0135737 001126 001174 MOV SBDDAT ,STMP4 :COPY "BAD DATA’ 
004412 042737 010600 001174 BIC #10600 ,STMP4 ;CLEAR THE MASKED BITS 
004420 055737 001174 001124 BIS STMP4,S$GDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
004426 104002 EMT 2 
004430 005137 001250 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
04434 000240 74$: NOP 
004436 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
004444 015737 001226 001240 MOV PORIB,PTNBR ; MOVE $4 ADDRESS TO LOCATION FOR TYPEGUT 
004452 005037 001250 CLR CKERR ; CLEAR oe "CHECK ERROR INDICATOR 
004456 016037 000012 001126 MOV RMDS(RO),SBODAT ;GET CONTENTS OF RMDS 
004464 012737 000012 001122 MOV WRMDS,S$BOADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
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CZRMRAO RMO5/3/2 DU POR TST 
11 NEUTRAL ACCESS TEST SEQ 0043 
004472 060037 001122 ADD RO, SBDADR ;ADD RH/RM BASE 13" te 
004476 012737 001000 001124 MOV #PGM,SGDDAT ; WHAT oe FH SHOULD BE 
004504 013737 001126 001164 MOV SBDDAT ,STMPO MOVE REGISTER hy Mpmeai TO 'STMPO' 
004512 042737 176777 901164 BIC #*CPGM,STMPO ; SAVE ke tee BITS 
004520 023737 001124 001164 CMP SGDDAT ,STMPO ;COMPARE THE BITS 
004526 001414 BEQ 76$ BR IF OK 
004530 013737 001126 001174 MOV SBDDAT ,STMP4 ;COPY ‘BAD DATA’ 
004536 042737 001000 001174 BIC #PGM, STMPG CLEAR THE MASKED BITS 
004544 053737 001174 001124 BIS STMP4 ,$GDDAT ;'OR' WITH GOOD DATA FOR TYPEOUT 
004552 104045 EMT 45 
004554 005137 001250 COM CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 
004560 000240 768: NOP 
004562 005037 001250 CLR CKERR CLEAR THE "CHECK ERROR® INDICATOR 
004566 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMCS 
004574 012737 000012 001122 MOV oO tas SBDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
004602 060037 001122 ADD RO,$ ADD RH/RM BASE ADDRESS 
004606 012737 010600 001124 MOV RMOL'DPR DRY ScDbAT WHAT REGISTER SHOULD BE 
004614 013737 001126 001164 MOV SBDDAT ,STMPO ;MOVE REGISTER CONTENTS TO ‘$TMPO' 
004622 042737 167177 001164 BIC #010660. $TMPO $y SPECIFIED BITS 
004630 023737 001124 001164 CMP SGDDAT, $TMPO he THE BITS 
004636 001414 BEQ 78$ BR F OK 
004640 013737 001126 001174 MOV SBDDAT ,STMP4 ;COPY ‘BAD DATA’ 
004646 042737 010600 001174 BIC #10600, STMP4 ;CLEAR THE MASKED BITS 
004654 053737 001174 001124 BIS $TMP4 ,$GDDAT :OR' WITH GOOD DATA FOR TYPEOUT 
004662 104002 EMT 2 
004664 005137 001250 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
168 004670 000240 78$: NOP 
4 44 sVERIFY THAT DRIVE SERIAL NUMBER SEEN THROUGH BOTH PORTS IS THE SAME 
171 004672 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
172 094700 016037 000030 001124 MOV RMSN(RO) ,SGDDAT ;STORE THE wy A SERIAL NUMBER 
173 004706 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
174 004714 016037 000030 001126 MOY RMSN(RO) ,SBDDAT pth THE PORT B SERIAL NUMBER 
175 004722 023737 001124 001126 CMP $GDDAT,SBDDAT :ARE THEY THE SAME ? 
176 004730 001406 BEQ 1$ ;BR IF THEY ARE 
177 004732 104003 EMT 3 
178 004734 032777 100000 174176 BIT #SW15,aSWR HALT ON ERROR ? 
179 004742 001001 BNE 1$ ;BR IF SET = PROGRAM HAS ALREADY HALTED 
180 004744 000000 HALT sHALT, POSSIBLE CABLE CONNECTION PROBLEM 
+H 004746 000004 1$: SCOPE LOOP’? 
200 
20° ° PRR REAR eT eee eek eneee 


TEST 2 PORT ‘A' SEIZE/TIMEOUT TEST 


:*VERIFY THAT THE DRIVE CAN BE SEIZED BY WRITING A REMOTE REGISTER AND THAT 
IT CAN BE RELEASED BY THE ONE SECOND TIMER. 


WRITE O°S INTO RMDA THROUGH PORT 'A'; VERIFY THAT THE DRIVE 
HAS BEEN SEIZED. 


READ EACH DRIVE REGISTER, EXCEPT RMCS1, THROUGH PORT ‘B'; 
VERIFY THAT O'S ARE READ FROM EACH REGISTER. 


WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE. 
MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 


> 
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CZRMRAO wort 
. TIMEOUT TEST 


/2 DU POR 
Te A* SEIZE/ SEQ 0044 


:* VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 
i NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS > 500 MS. 
: 1 Sue ainnmeireennendinbonsbonbesnssenneebninandeseeniuniebens 

004750 112: 

004750 005737 001300 1ST KYBCTL : PERFORMING ONLY SINGLE TEST ? 

004754 001406 BEQ 2$ ‘BR IF NOT 

004756 100002 BPL 1$ <BR IF JUST ENTERED TEST 

004760 000137 003110 JMP EXEC “RETURN & GET NEXT TEST NUMBER 

004764 012737 177777 001300 1$: MOV #-1, KYBCTL 'SET SINGLE TEST INDICATOR 

004772 012737 005006 001106 2$: MOV #TEST2,$LPADR SETUP SCOPE LOOP ADDRESS 

905000 012737 005006 001110 -? MOV HTEST2.S$LPERR | :SETUP ERROR LOOP ADDRESS 

005006 112737 000002 001102 MOVB #2,$TSTNM :MOVE #2 TO TEST NUMBER 

005014 012706 001100 MOV #STACK,SP ‘LOAD THE STACK POINTER 

sa 005020 012737 000002 001176 MOV #2.,STIMES ':D0 2. ITERATIONS 
270 005026 012737 000240 177776 MOV #5032. >,aaPS SET PRIORITY TO 5 IN CASE LOOPING 

005034 005037 001262 CLR TIM “CLEAR TIMEOUT VALUE FOR PORT A 

005040 005037 001264 CLR TIMEAP =CLEAR UPPER TIMEOUT TOLERANCE 

005044 005037 001266 CLR TIMEAM :CLEAR LOWER TIMEOUT TOLERANCE 
:START THE TIMER 

005050 005037 001256 CLR TIME :CLEAR THE ELAPSED TIME COUNTER 

005054 012737 003720 001260 MOV #2000.,WATCH § :SET WATCH TO 2000. MS 
:SEIZE THE DRIVE THROUGH PORT A 

005062 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT A 

005070 013737 001224 001242 MOV PORTA.SEiZPT : STORE SEIZING PORT'S ADDRESS 

005076 005060 000006 CLR RMDA(RO) WRITE R 

005102 113760 001226 000010 MOVB — PORTB, RMCS2(RO) SELECT P 1B 

005110 013737 001226 001240 MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

005116 013737 001226 001244 MOV PORTB.OPPRT : OPPOSITE’ PORT ADDRESS 

005124 016037 000012 001126 MOV RMDS(RO),$BDDAT :SEE IF DRIVE SEIZED BY PORT A 

005132 010037 001122 MOV RO, $BDADR [RH/RM BASE ACORESS 

005136 062737 000012 001122 ADD ARHDS SBDADR § :GENERATE BAD REGISTER ADDRESS 

005144 005037 001124 CLR $GDDAT =REGISTER SHOULD BE ZERO 

005150 023737 001124 001126 CMP $GDDAT,SBDDAT :1S THE REGISTER ZERO 

005156 001403 BEQ 64$ “BR IF IT IS 

005160 104004 EMT 4 

005162 000137 006314 ne JMP 5$ :BYPASS REST OF THE SUBTEST 

005166 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT A 

005174 013737 001224 001240 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

005202 016037 000012 001126 MOV RMDS(RO),$BDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 

005210 042737 020001 001126 BIC #OM'PIP, $BDDAT :CLEAR DONT CARE BITS 

005216 012737 011600 001124 MOV #MOL'PGM'DPR!DRY,SGDDAT ": EXPECTED STATUS 

005224 013737 001124 001166 MOV S$GDDAT,STMP1  ;USE GOOD DATA AS A MASK 

005232 005137 001166 COM $TMP1 :COMPLEMENT THE EXPECTED STATUS 

05236 013737 001126 001164 MOV SBDDAT,STMPO =: SAVE THE ACTUAL STATUS 

005244 043737 001166 001164 BIC $TMP1,$TMPO =CLEAR UNWANTED BITS 

005252 023737 001124 001164 CMP SGDDAT,$TMPO =: ARE. THE EXPECTED STATUS BITS SET ? 

005260 001401 BEQ 65$ “BR IF THEY ARE 

005262 104005 EMT 

005264 000240 65$: NOP 
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CZRMRAO RMO5S/3/2 DU POR TST 1 
T2 PORT ‘A* SEIZE/TIMEOUT TEST SEQ 0045 
sREAD THE DRIVE REGISTERS THROUGH PORT B AND STORE THEM ON THE STACK 
005266 113760 001226 600010 MOVB PORTB, PTaBa ca ;SELECT PORT B 
005274 013737 001226 001240 MOV PORTB,PTNBR ove PORT ADDRESS TO LOCATION FOR TYPEOUT 
005302 016046 000046 MOV RMEC2(RO),-(SP) ;STORE REGISTER RMEC2, PORT B, FOR CHECK 
005306 016046 000044 MOV RMEC1(RO) mC 8p) STORE REGISTER RMEC1, PORT B, FOR CHECK 
005312 016046 000030 MOV RMSN(RO),-(SP) ;STORE REGISTER RMSN, PORT B, FOR CHECK 
005316 016046 000034 MOV RMDC(RO),-(SP) ;STORE REGISTER RMDC, PORT B, FOR CHECK 
005322 016046 000032 MOV RMOF(RO),-(SP) ;STORE REGISTER RMOF, PORT B, FOR CHECK 
005326 016046 000042 MOV RMER2(RO),-(SP) ;STORE REGISTER RMER2, PORT B, FOR CHECK 
005332 016046 000020 MOV RMLA(RO),-(SP) ;STORE REGISTER RMLA, PORT B, FOR CHECK 
005336 016046 000026 MOV RMDT(RO),=(SP) ;STORE REGISTER RMDT. PORT B. FOR CHECK 
005342 016046 000006 MOV RMDA(RO),-(SP) ;STORE REGISTER RMDA, PORT B, FOR CHECK 
005346 016046 000024 MOV RMMR1(RO),-(SP) ;STORE REGISTER RMMR1, PORT B, FOR CHECK 
005352 016046 000014 MOV RMER1(RO),-(SP) ;STORE REGISTER RMER1, PORT B, FOR CHECK 
;WAIT FOR PORT A TO TIMEOUT 
005356 005760 000012 1$: TST RMDS(RO) WAIT FOR THE DRIVE TO TIMEOUT 
005362 001006 BNE 2$ ;BR WHEN TIMEOUT OCCURS 
005364 005737 001260 TST WATCH ; CHECK WATCH 
005370 001372 BNE 1$ ;BR IF NOT ZERO 
005372 104036 EMT 36 
005374 000137 006000 JMP 4% sBYPASS TIMEOUT TIME CHECK 
005400 012737 000340 177776 2%: MOV #<7*32.>,0#PS  ;SET PRIORITY TO 7 TO STOP CLOCK 
005406 013737 001256 001262 MOV TIME, TIMEA SAVE THE ELAPSED TIME FOR PORT A 
005414 004537 066320 JSR R5, TOLER sCALCULATE THE TOLERANCE 
005420 001262 -WORD TIMEA : TIMEOUT VALUE FOR PORT A 
005422 012637 001264 MOV (SP)+,TIMEAP :+25% TOLERANCE 
005426 012637 001266 MOV (SP)+,TIMEAM 37-25% TOLERANCE 
:VERIFY THAT THE TIMEOUT ONE-SHOT IS AT LEAST 500 MS 
005432 023727 001256 000764 CMP TIME , #500. :WAS MEASURED TIME AT LEAST 500 MS? 
005440 103001 BHIS 3$ :BR IF IT WAS 
005442 104055 EMT 55 
:VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT A TIMED OUT 
005444 012737 000240 177776 3$: MOV #<5*32.>,Q#PS RESTORE PRIORITY TO 5 
VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
005452 005037 001254 CLR RELERR :CLEAR THE "RELEASE ERROR ' INDICATOR 
005456 012737 000012 001122 MOV #RMDS , SBDADR :FORM THE ADDRESS OF RMDS FOR TYPEQOUT 
005464 060037 001122 ADD RO, SBDADR ;ADD THE 1/0 BASE ADDRESS 
005470 012737 011600 001124 MOV #MOL !PGM!DPR!DRY,SGDDAT NS Naa CONSTANT 
005476 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT 
05504 016037 000012 001170 MOV RMDS(RO),STMP2 :GET THE DRIVE "STATUS REGISTER FROM PORT A. 
005512 042737 024001 001170 BIC #PIP!WRL ‘OM, STMPO : CLEAR pont CARES 
005520 013737 001170 001164 MOV STMP2,STMPO ;COPY IT INTO ‘STM 
005526 042737 100100 001164 BIC WATA'VV,STMPO CLEAR PORT (DEPENDENT BITS FROM THE COPY 
05534 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 
005542 016037 000012 001172 MOV RMDS(RO),STMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
005550 042737 024001 001172 BIC #PIP!WRL!OM,STMP CLEAR DONT CARES 
005556 013737 001172 00116¢ MOV SIMPS,STMP1 ;COPY IT INTO '$TMPI' 
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Te PORT *A‘ SEIZE/TIMEOUT TEST SEQ 0046 
005564 042737 100100 001166 BIC MATALVV,STMP1 4h er PORT DEPENDENT BITS FROM THE COP 
005572 023737 001164 001166 (MP STMPO,STMP1 4h THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
005600 001006 BNE 66% R IF NOT 
005602 005737 001164 TST $TMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 

05606 001037 BNE 68% BR 1F NOT 

005610 104046 EMT 46 
005612 000137 005776 JMP 70$ ;BYPASS THE REST OF THE CHECK 

005616 013737 001170 001126 66S: MOV STMP2, $BDDAT :SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
005624 013737 001226 001240 MOV PORTB,PTNBR SEIZING Any IF TEST SHOWS DRIVE NOT IN NEUTRAL 
005632 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 

005640 005737 001164 TST STMPO ; SEE IF STATUS EQ 0 FROM PORT A. 

005644 001414 BEQ 67% BR IF ZERO 
005646 013737 001224 001240 MOV PORTA,PTNBR ; SEIZING PORT IF TEST SHOWS DRIVE NCT IN NEUTR’ 
005654 013737 001172 001126 MOV STMP3,$BDDAT ; "BAD DATA’ sm ERROR TYPE OUT 

005662 113760 001224 000010 MOVB PORTA,RMCS2(RO) :SELECT PORT 
005670 005737 001166 TST STMP1 :SEE IF STATUS” EQ ZERO FROM PORT B. 

005674 001004 BNE 68$ BR IF NOT 

005676 012737 177777 001254 67%: MOV #-1,RELERR ;SET "RELEASE ERROR’ INDICATOR 

005704 104022 EMT 22 
005706 013737 001170 001126 688: MOV STMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
005714 013737 001224 001240 MOV PORTA,PTNBR ;CHANGE PORT NUMBER 

005722 042737 100100 001126 BIC WATA‘VV,$BDDAT ;DON'T CHECK ATTN BI1 OR vv BIT 

005730 023737 001124 001126 CMP $GDDAT,SBDDAT ;ALL BITS OK ? 
005736 001401 BEQ 69$ ;BR IF OK FROM PORT A. 
005740 104007 EMT 7 
005742 013737 001172 001126 69$: MOV $TMP3,$BDDAT :CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
005750 013737 001226 001240 MOV PORTB,PTNBR CHANGE PORT NUMBER 
005756 042737 100100 001126 BIC WATA'VV,S$BDDAT DON'T CHECK ATTN BIT OR vv BIT 
005764 023737 001124 001126 CMP $GDDAT,$BDDAT :SEE IF READ OK FROM PORT B. 
005772 001401 BEQ 70$ :BR IF OK 
005774 104007 EMT 7 
005776 000240 70$: NOP 

;CHECK THE REGISTERS STORED THROUGH PORT B. ALL REGISTERS SHOULD BE ZERO. 
;THE REGISTERS ARE STORED ON THE STACK. 

006000 013737 001226 001240 4$: MOV PORTB,PTNBR CHANGE ‘PORT NUMBER’ TO ~ OPPOSITE PORT 
006006 010037 001122 MOV RO, $BDADR BASE ADDRESS FOR REGISTER RMERI 
006012 062737 000014 001122 ADD WRMERT,S$BDADR  : ADDRESS OF RMER1 FOR TYPEOUT 
006020 012637 001126 MOV (SP) +, $BDDAT :CHECK THE STORED CONTENTS OF RMER1 
006024 001401 BEQ +4 sCONTENTS ZERO ? 
006026 104006 EMT 6 
006030 010037 001122 MOV RO, $BDADR ;BASE ADDRESS FOR REGISTER RMMR1 

006034 062737 000024 001122 ADD WRMMR1,$BDADR ;ADDRESS OF RMMR1 FOR TYPEOUT 
006042 012637 001126 MOV (SP)+,$BDDAT :CHECK THE STORED CONTENTS OF RMMR1 

006046 001401 BEQ +4 CONTENTS ZERO ? 

006050 104006 EMT 6 
006052 010037 001122 MOV RO, $BDADR ;BASE ADDRESS FOR REGISTER RMDA 

006056 062737 000006 001122 ADD #RMDA,SBOADR ADDRESS OF RMDA FOR TYPEOUT 

006064 012637 001126 MOV (SP)+,$BDDAT ;CHECK THE STORED CONTENTS OF RMDA 

006070 001401 BEQ +4 ;CONTENTS ZERO ? 

006072 104006 EMT 6 
006074 010037 001122 MOV RO, $BDADR s;BASE ADDRESS FOR REGISTER RMDT 

006100 062737 000026 001122 ADD #WRMDT,SBDADR sADDRESS OF RMDT FOR TYPEQOUT 

006106 012637 001126 MOV (SP)+,$BDDAT CHECK THE Me CONTENTS OF RMDI 

006112 001401 BEQ +4 [CONTENTS ZERO ? 


006114 104006 EMT 6 
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Te "AS SEIZE/TIMEOUT TEST 1 SEQ 0047 
006116 010037 001122 MOV RO, SBDADR *BASE ADDRESS FOR REGISTER tot 
006122 062737 000020 001122 ADD A#RMLA,SBDADR ;ADDRESS OF RMLA FOR TYPEOUT 
006130 012637 001126 MOV (SP)+,$BDDAT :CHECK THE STORED CONTENTS OF RMLA 
006134 001401 BEQ +4 :CONTENTS ZERO ? 

006136 104006 EMT 6 
006140 010037 001122 MOV RO, SBDA ;BASE ADDRESS FOR REGISTER RMER2 
006144 062737 000042 001122 ADD WRMERZ *SBDADR :ADDRESS OF RMER2 FOR TYPEOUT 
006152 012637 001126 MOV (SP) +, $BDDAT :CHECK THE STORED CONTENTS OF RMER2 
006156 001401 BEQ +4 CONTENTS ZERO ? 
006160 104006 EMT 6 
006162 010037 001122 MOV RO, $BDADR ;BASE ADDRESS FOR REGISTER RMOF 
006166 062737 000032 001122 ADD #RMOF ,SBDADR sADDRESS OF RMOF FOR TYPEOUT 
006174 012637 001126 MOV (SP)+,$BDDAT CHECK THE STORED CONTENTS OF RMOF 
006200 001401 BEQ +4 CONTENTS ZERO ? 
006202 104006 EMT 6 
006204 010037 001122 MOV RO,$BDADR yee ADDRESS FOR jg $j _ 
006210 062737 000034 9001122 ADD #RMDC ,SBDADR ADDRESS OF RMDC FOR TYPEOUT 
006216 012637 001126 MOV (SP)+,$BDDAT :CHECK THE STORED CONTENTS OF RMDC 
006222 001401 BEQ +4 CONTENTS ZERO ? 
006224 104006 EMT 6 
006226 010037 001122 MOV RO, $BDADR ;BASE ADDRESS FOR REGISTER RMSN 
006232 062737 000030 001122 ADD #RMSN,SBDADR sADDRESS OF RMSN FOR TYPEOUT 
006240 012637 001126 MOV (SP)+,$BDDAT ;CHECK THE STORED CONTENTS OF RMSN 
006244 001401 BEQ +4 ;CONTENTS ZERO ? 
006246 104006 EMT 6 
006250 010037 001122 MOV RO, $BDADR sBASE ADDRESS FOR REGISTER RMEC1 
006254 062737 000044 001122 ADD WRMEC1,$BDADR  ;ADDRESS OF RMEC1 FOR TYPEOUT 
006262 012637 001126 MOV (SP)+,$BDDAT :CHECK THE STORED CONTENTS OF RMEC1 
006266 001401 BEQ +4 CONTENTS ZERO ? 
006270 104006 EMT 6 
006272 G10037 001122 MOV RO, $BDADR :BASE ADDRESS FOR REGISTER RMEC2 
006276 062737 000046 0601122 ADD WRMEC2,$BDADR  ;ADDRESS OF RMEC2 FOR TYPEOUT 
006304 012637 001126 MOV (SP)+,$BDDAT ;CHECK THE STORED CONTENTS OF RMEC2 
006310 001401 BEQ +4 CONTENTS ZERO ? 
006312 104006 EMT 6 

o71 006314 000004 5$: SCOPE ;LOOP ? 

289 
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TEST 3 PORT 'B' SEIZE/TIMEOUT TEST 


:*VERIFY THAT THE DRIVE CAN BE SEIZED BY WRITING A REMOTE REGISTER AND THAT 
1T CAN BE RELEASED BY THE ONE SECOND TIMER. 


WRITE O°S INTO RMDA THROUGH PORT ‘B'; VERIFY THAT THE DRIVE 
HAS BEEN SEIZED. 


READ EACH DRIVE REGISTER, EXCEPT RMCS1, a PORT ‘A’; 
VERIFY THAT O'S ARE READ FROM EACH REGISTER 


WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE. 

MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 

VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 
NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS >500 MS. 
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"B' SEIZE/TIMEOUT TEST SEQ 0048 
006316 005737 001300 TST KYBCTL : PERF ORMING ONLY SINGLE TEST ? 
006322 001406 BEQ 2$ :BR IF NOT 
006324 BPL 1$ ‘BR IF JUST ENTERED TEST 
006326 000137 003110 JMP EXEC SRETURN & GET NEXT Test NUMBER 
006332 012737 177777 001300 1$ MOV #-1, KYBCTL :SET SINGLE TEST INDICATOR 
006340 012737 006354 001106 2$ MOV HTEST3,$LPADR SETUP SCOPE LOOP ADDRESS 
006346 012737 006354 001110 ne MOV MTEST3,S$LPERR :SETUP ERROR LOOP ADDRESS 
006354 112737 000003 001102 MOVB 43, STSTNM ;MOVE #3 TO TEST NUMBER 
006362 012706 001100 MOV #STACK, TLOAD THE STACK POINTER 
006366 012737 000002 001176 MOV #2. ASTINES ::D0 2. ITERATIONS 
006374 012737 000240 177776 MOV #<5*32.>,a#PS :SET PRIORITY TO 5 IN CASE LOOPING 
06402 005037 001270 CLR TIMEB >CLEAR TIMEOUT VALUE FOR PORT B 
006406 005037 001272 CLR TIMEBP :CLEAR UPPER TIMEOUT TOLERANCE 
006412 005037 001274 CLR TIMEBM :CLEAR LOWER TIMEOUT TOLERANCE 
;START THE TIMER 
006416 005037 001256 CLR TIME :CLEAR THE ELAPSED TIME COUNTER 
006422 012737 003720 001260 MOV #2000.,WATCH § :SET WATCH TO 2000. 
;SEIZE THE DRIVE THROUGH PORT B 
006430 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
006436 013737 001226 001242 MOV PORTB,SEIZPT : STORE SEIZING PORT'S ADDRESS 
006444 005060 000006 CLR RMDA(RO) :WRITE RMDA 
006450 113760 001224 000010 MOVB — PORTA,RMCS2(RO) ";SELECT PORT A 
006456 013737 001224 001240 MOV PORTA.PTNBR ;MOvE PORT ADDRESS TO LOCATION FOR TYPEQUT 
006464 013737 001224 001244 MOV PORTA,OPPRT ; OPPOSITE’ PORT ADDRESS 
006472 016037 000012 001126 MOV RMDS(RO),$BDDAT :SEE If DRIVE SEIZED BY PORT B 
006500 010037 001122 MOV RO, $BDADR RH/RM BASE ADDRESS 
006504 062737 000012 001122 ADD aRADS, SBDADR GENERATE BAD REGISTER ADDRESS 
006512 005037 001124 CLR $GDDAT :REGISTER SHOULD BE ZERO 
006516 023737 001124 001126 CMP S$GDDAT,$BDDAT 31S THE REGISTER ZERO 
006524 001403 BEQ 64$ ‘BR IF IT IS 
006526 104004 EMT 4 
006530 000137 007662 ae JMP 5$ ;BYPASS REST OF THE SUBTEST 
006534 113760 001226 000010 MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
006542 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
006550 000012 001126 MOV RMDS(RO),SBDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
006556 020001 001126 BIC #OM'PIP, $BDDAT :CLEAR DONT CARE BITS 
0065 011600 001124 MOV @ROL 'PGA'DPRIDRY, SGDDAT "EXPECTED STATUS 
006572 001124 001166 MOV SGDDAT,STMP1 ;USE GOOD DATA AS A MASK 
006600 001166 COM $TMP1 : COMPLEMENT THE EXPECTED STATUS 
06604 001126 001164 MOV SBDDAT,STMPO © :SAVE THE ACTUAL STATUS 
006612 001166 001164 BIC STMP1,$TMPO :CLEAR UNWANTED BITS 
006620 001124 001164 CMP $GDDAT,STMPO = SARE THE EXPECTED STATUS BITS SET ? 
006626 BEQ 65$ :BR IF THEY ARE 
006630 EMT 
006632 65$: NOP 
;READ THE DRIVE REGISTERS THROUGH PORT A AND STORE THEM ON THE STACK 
0066 34 001224 000010 MOVB  PORTA,RMCS2(RO) ;SELECT PORT 
006642 001224 001240 MOV PORTA.PINBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
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PORT ‘B’ SEIZE/TIMEOUT TEST 2 


177776 
001270 


000764 


177776 


001122 
001124 


1$: 


23: 


: VERIFY 


;STORE REGISTER RMEC2, PORT A, FOR CHECK 
;STORE REGISTER RMEC1, PORT A. FOR CHECK 
sSTORE REGISTER RMSN, PORT A, FOR CHECK 
;STORE REGISTER RMDC, PORT A. FOR CHECK 
:STORE REGISTER RMOF, PORT A. FOR CHECK 
SSTORE REGISTER RMERS, PORT A, FOR CHECK 
:STORE REGISTER RMLA, PORT A, FOR CHECK 
:STORE REGISTER RMDT. PORT A. FOR CHECK 
sSTORE REGISTER RMDA. PORT A. FOR CHECK 
sSTORE REGISTER RMMR1, PORT A, FOR CHECK 
:STORE REGISTER RMER1. PORT A. FOR CHECK 


;WAIT FOR THE DRIVE TO TIMEOUT 


:BR el owt OCCURS 
CHECK WATCH 
:BR IF NOT ZERO 


;BYPASS TIMEOUT TIME CHECK 
;SET PRIORITY TO 7 TO STOP CLOCK 
sSAVE THE ELAPSED TIME FOR PORT B 


sCALCULATE THE TOLERANCE 


; TIMEOUT ote PORT B 


:425% TOLERA 
25% TOLERANCE 


THAT THE TIMEOUT ONE=SHOT IS AT LEAST 500 MS 


MOV RMEC2(RO) ,-(SP) 

MOV RMEC1(RO),=(SP) 

MOV RMSN(RO) ,=(SP) 

MOV RMDC (RO) ,-(SP) 

MOV RMOF (RO) ,=(SP) 

MOV RMER2(RO) ,=-(SP) 

MOV RMLAC(RO) ,=-(SP) 

MOV RMDT(RO) ,=(SP) 

MOV RMDAC(RO) ,=(SP) 

MOV RMMR1(RO),=-(SP) 

MOV RMER1(RO),=(SP) 
;WAIT FOR PORT B TO TIMEOUT 

TST RMDS (RO) 

BNE 2$ 

TST WATCH 

BNE 1$ 

EMT 36 

JMP 4$ 

MOV #<7#32.>,aMPS 

MOV TIME, TIMEB 

JSR RS,TOLER 

-WORD TIMEB 

MOV (SP)+,TIMEBP 

MOV (SP)+,TIMEBM 

CMP TIME ,#500. 

BHIS 3$ 

EMT 55 


iVERIFY 
3$: 
sVERIFY 


WAS MEASURED TIME AT LEAST 500 MS? 
BR IF IT WAS 


THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT B TIMED OUT 


MOV 


#<5#32.>,aMPS 


RESTORE PRIORITY TO 5 


THAT THE DRIVE IS STILL IN NEUTRAL 


CLEAR THE "RELEASE ERROR * INDICATOR 
:FORM THE ADDRESS OF RMDS FOR TYPEOUT 


RELERR 
#RMDS ,SBDADR 
0, SBDADR 


; ADD 
#MOL !PGM!DPR!DRY.SGDDAT 


PORTA, RMCS2(RO) 


RMDS (RO) -STMP2 


$TMPO,STMPI 
66% 


$TMPO 
68% 


7 SELECT 


: CLEAR ge 5 tees BITS FROM THE COPY 
:GET THE DRIVE ater ~ hla FROM PORT B. 


sCOPY IT INT 
SSELECT P 

5 :CLEAR DONT CAR 
:COPY IT INTO ‘$TMP1° 


THE 1/0 BASE ADDRESS 
wee CONSTANT 


GET THE DRIVE as Pe a FROM PORT A, 


CLEAR PORT DEPENDENT BITS FROM THE COPY 


Hf a > lat REGISTER THE SAME FROM BOTH PORTS ? 


:BR IF NO 
REGISTERS AREF THE SAME: 
:BR IF NOT 


ARE THEY ZERO ? 


SEQ 0049 
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007156 


007344 


007346 


007504 
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000240 


013737 


104006 


001124 


001172 


001124 


001224 


001126 


001122 
000024 
001126 


001122 
900006 
001126 


001122 
000026 
001126 


001122 
000020 
001126 
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001126 
001240 
000010 


001240 
001126 
000010 


001254 
001126 


001126 
001126 


001126 
001240 
001122 
001122 
001122 
001122 


001122 


66$: 


67$: 


68$: 


69$: 


708: 
;CHECK THE REGISTERS STORED THROUGH PORT A. 


46 


70$ 
STMP2,SBDDAT 
PORTB,P 


PTNBR 
PORTB,RMCS2(RO) 
STMPO 


67$ 
PORTA,PTNBR 
STMP3,$BDDAT 


PORTA,RMCS2(RO) 
STMP1 


68$ 
#-1,RELERR 
22 


STMP2,S$BDDAT 
PORTA,PTNBR 


MATA!VV,SBDDAT 
SGDDAT,$BDDAT 
69% 


7 
STMP3,$BDDAT 
PORTB,PTNBR 


MATALVV, $BDDAT 
$GDDAT,$BDDAT 
70$ 


:BYPASS THE REST OF THE CHECKS 
;SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING pont IF TEST SHOWS DRIVE NOT IN NEUTRAL 


T B. 
F ee EQ 0 FROM PORT A. 


NG PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
ne FOR ERROR TYPE OUT 


PORT A. 
SEE far EQ ZERO FROM PORT B. 
SET "RELEASE ERROR’ INDICATOR 


;LOOK FOR BIT nae WHEN RMDS READ 
;CHANGE PORT NUMBER 

;DON'T CHECK ATIN BIT OR VV BIT 

ZALL BITS OK ? 

;BR IF OK FROM PORT A, 


;CHECK RMDS FOR BIT FAILURES = FROM PORT B. 
;CHANGE PORT NUMBER 

;DON'T CHECK ATTN BIT OR Vv BIT 

iSEE IF READ OK FROM PORT B. 


™~ 
> 


SELECT 
SEE I 
BR IF 
;SEIZI 
; BAD 
ELEC 


Aw 


ALL REGISTERS SHOULD BE ZERO. 


THE REGISTERS ARE STORED ON THE STACK. 


4$: 


POPTA,PTNBR 
RO, $BDADR 


#RMER1,$BDADR 


(SP) +, $BDDAT 
+4 


RO,$BDADR 
#RMMR1,SBDADR 


(SP)+,$BDDAT 
+4 


6 

RO,$BDADR 
#RMDA,$BDADR 
(SP)+,$BDDAT 
+4 

6 

RO, SBDADR 
#RMDT,SBDADR 
eames 
+ 


RO, SBDADR 
#RMLA,SBDADR 
(SP)+,$BDDAT 
#4 

6 


;CHANGE "PORT NUMBER’ TO a OPPOSITE PORT 
BASE ADDRESS FOR REGISTER RMER1 

:ADDRESS OF RMER1 FOR TYPEOUT 

:CHECK THE STORED CONTENTS OF RMER1 
CONTENTS ZERO ? 


BASE ADDRESS FOR REGISTER RMMR1 
ADDRESS OF RMMR1 FOR TYPEOUT 
:CHECK THE STORED CONTENTS OF RMMR1 
:CONTENTS ZERO ? 


:BASE ADDRESS FOR REGISTER RMDA 
sADDRESS OF RMDA FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMDA 
:CONTENTS ZERO ? 


;BASE ADDRESS FOR REGISTER RMDT 
ADDRESS OF RMDT FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMDT 


:CONTENTS ZERO ? 


:BASE ADDRESS FOR meGoree RMLA 
ADDRESS OF RMLA FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMLA 
:CONTENTS ZERO ? 


13 
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308 


007664 


007722 
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000030 
001126 


001122 
000044 
001126 


001122 
000046 
001126 
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001122 


001122 


001122 


001122 


001122 


001122 


001300 
001106 
001110 


001102 


;BASE ADDRESS FOR oon Tone RMER2 
sADDRESS OF RMER2 FOR TYPEOUT 
; CHECK THE STORED CONTENTS OF RMER2 


:BASE ADDRESS FOR +> jg bd _— 
sADDRESS OF RMOF FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMOF 


sBASE ADDRESS FOR REGISTER RMDC 
sADDRESS OF RMDC FOR TYPEOUT 
:CHECK THE STORED CONTENTS OF RMDC 


+BASE ADDRESS FOR REGISTER — 
;ADDRESS OF RMSN FOR TYPEOUT 
RED CONTENTS OF RMSN 


;BASE ADDRESS FOR REGISTER RMEC1 
sADDRESS OF RMEC1 FOR TYPEOUT 
:CHECK THE STORED CONTENTS OF RMEC1 


;BASE ADDRESS FOR REGISTER RMEC2 
s:ADDRESS OF RMEC2 FOR TYPEOUT 
CHECK THE prone? CONTENTS OF RMEC2 


ISSUE A RELEASE COMMAND THROUGH PORT'A'. VERIFY THAT THE DRIVE 
~ Mag TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 
VE. 


on ie wore ONLY SINGLE TEST ? 


:BR_IF JUST ENTERED TEST 
;RETURN & GET NEXT TEST NUMBER 


;SETUP ERROR LOOP ADDRESS 


MOV RO, $BDADR 
ADD PRRERD SBDADR 
MOV (SP)+, $BDDAT 
BEQ ‘CONTENTS ZERO ? 
MOV RO, SBDADR 
ADD #RMOF , SBDADR 
MOV (SP)+,$BDDAT 
BEQ +4 ‘CONTENTS ZERO ? 
EMT é 
MOV RO, $BDADR 
ADD #RMDC, SBDADR 
MOV (SP)+,$BDDAT 
BEQ +4 SCONTENTS ZERO ? 
EMT & 
MOV RO, $BDADR 
ADD #RMSN, SBDADR 
MOV (SP)+.$BDDAT § :CHECK THE STO 
BEQ +4 ‘CONTENTS ZERO ? 
EMT 6 
MOV RO, $BDADR 
ADD #RMEC1, SBDADR 
MOV (SP)+,$BDDAT 
BEQ +h ‘CONTENTS ZERO ? 
EMT 6 
MOV RO, $BDADR 
ADD #RMEC2, SBDADR 
MOV (SP)+, $BDDAT 
BEQ +4 ‘CONTENTS ZERO ? 
5$: SCOPE :LOOP ? 
2 'MASRBAAAASLALAARASALALSLASLLAESESESASELESESAEASAESAESESEEESOSCLOOCLLCCLCLLL SE & 
: TEST 4 PORT 'A' SEIZE/RELEASE TEST 
j*TEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 
ae A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0°S INTO RMDS. 
**® 
:* B. SET VOLUME VALID AND CLEAR ANY ERROR 
**® 
se C. 
7* 
7* 
” 
2 Z 'MABBAAAASAASZALZAASSASESESREERESESESEESAASAESE SESS ALESESLESLALSLSSLALALSE © 
1S14: 
TST KYBCTL 
BEQ 2$ “BR IF 
BPL 1$ 
JMP EXEC 
1$: MOV #-1, KYBCTL 
2$: MOV #TESTG,SLPADR 
MOV #TESTGSLPERR 
TEST4 
MOVB #4,$TSTNM 


:MOVE #4 TO TEST NUMBER 


SEQ 0051 


309 


007730 
007734 


007742 
007746 


007754 


eww folololelolelolololalolo) 
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R TST 1 
/RELEASE TEST 
001100 
000031 001176 
001256 
003720 001260 
001224 000010 
001224 001242 
000012 
01226 001244 
000021 000000 
001250 
00012 001126 
000012 001122 
001122 
000100 001124 
001126 001164 
177677 €01164 
001124 001164 
01126 001174 
©0100 001174 
001174 001124 
001250 
000040 000010 
001224 000010 
001224 001240 
000013 000000 
001254 
000012 001122 
001122 
011600 001124 
001224 000010 
000012 001170 
024001 001170 
001170 001164 
100100 001164 
001226 000010 
000012 001172 
024001 001172 
001172 001166 
100100 001166 


:START THE TIMER 


MOV 
MOV 


CLR 
MOV 


asus K,SP 
#25. ,$TIMES 


TIME 
#2000. ,WATCH 


;LOAD THE STACK POINTER 


;;D0 25. ITERATIONS 


CLEAR THE ELAPSED _ COUNTER 
;SET WATCH TO eee 


sSEIZE THE DRIVE AND SET VOLUME VALID 


sSEIZE THE DRIVE THROUGH PORT A 


66$: 


PORTA,RMCS2(RO) 
PORTA, SEIZPT 
RMDS (RO) 
PORTB,OPPRT 
hf -RMCS1(RO) 


RMDS (RO), $BDDAT 
#RHDS  SBOADR 


ist 


SELECT PORT 
ORE gt tteg PORT’ S ADDRESS 
WRITE RMDS 


: OPPOSITE’ PORT og 
SET VOLUME VALID 
THE "CHECK ERROR" INDICATOR 


; CLEAR 
3GET CONTENTS OF R 
; FORM REGISTER ADDRESS OOF ERROR MESSAGE 


RH/RM BASE ADDRESS 


A ADD 
eye S608 oT eo sWHAt REGISTER SHOU 


SGODAT $ 
66$ 
SBODAT ,STMP4 
AVV ,STMP4 

| cases 
CKERR 
ACLR,RMCS2(RO) 


sRELEASE THE DRIVE FROM PORT A 


VERIFY 


MOVB 
MOV 
MOV 


PORTA,RMCS2(RO) 


LD BE 
:MOVE REGISTER CONTENTS TO "$TMPO' 


v,51H0O :SAVE SPECIFIED 


COMPARE THE BITS 
IF OK 


;BR 

:COPY "BAD DATA’ 

:CLEAR THE MASKED BITS 

:'OR' WITH GOOD DATA FOR TYPEOUT 


;SET THE REGISTER COMPARE ERROR INDICATOR 


CLEAR DRIVE 


;SELECT PORT A 


PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


#13,RMCS1(RO) 


ISSUE RELEASE THROUGH PORT A 


THAT THE DRIVE IS STILL IN NEUTRAL 


RELERR :CLEAR THE "RELEASE ERROR ' INDICATOR 
WRMDS.SBDADR ©; FORM THE ADDRESS OF RMDS FOR TYPEOUT 

RO, $BDADR ADD THE 1/0 BASE ADDRESS 
#MOL!PGM'DPR!DRY. * SGDDAT {COMPARISON CONSTANT 
PORTA,RMCS2(RO) :SELECT PORT 

RMDS(RO),$TMP2 :GET THE DRIVE “STATUS REGISTER FROM PORT A. 
#PIP'WRL ‘OM, STMP2 CLEAR DONT CARES 

STHPe 1 0 sCOPY IT INTO ° 


RMDS (RO), STMP3 
P (OM, $ 


WATALVV, STMP1 


simp$ 


™ 

Sree boat DEPENDENT BITS FROM THE COPY 

“GET THE DRIVE STATUS REGISTER FROM PORT B. 
:CLEAR DONT CARES 

;COPY IT INTO '$TMP 


:CLEAR PORT DEPENDENT BITS FROM THE COPY 


BS 
CZRMRAO RMOS/3/2 DU POR TST 1 MACRO V03.01 11-APR-80 14:26:10 PAGE 8-16 
1% PORT *A' SEIZE/RELEASE TEST SEQ 0053 
010270 023737 001164 001166 CMP STMPO,STMP1 4 THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
010276 001006 BNE 688 F NOT 
010300 005737 001164 TST STMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
010304 001037 BNE 708 :BR IF NOT 
010306 104046 EMT 6 
010310 000137 010474 JMP 72$ ;BYPASS THE REST OF THE CHECKS 
010314 013737 001170 001126 68$: MOV STMP2,SBDDAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
010322 0135737 001226 001240 MOV PORTB,PTNBR SEIZING Any IF TEST SHOWS DRIVE NOT IN NEUTRAL 
010330 113760 001226 000010 MOVB — PORTB,RMCS2(RO) :SELECT PORT 
010336 005737 001164 TST $STMPO ;SEE IF STATUS: EQ 0 FROM PORT A. 
010342 001414 BEQ 698 :BR IF ZERO 
010344 013737 001224 001240 MOV PORTA,PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
010352 013737 001172 001126 MOV $TMP3,$BDDAT oy eo os ERROR TYPE OUT 
010360 113760 001224 000010 MOVB © PORTA. RMCS2(RO) SELECT P 
010366 005737 001166 TST STMP1 SEE - STATUS "EQ ZERO FROM PORT B. 
010372 001004 BNE 708 :BR IF NOT 
010374 012737 177777 001254 698: MOV #-1,RELERR 7 SET RELEASE ERROR’ INDICATOR 
010402 104022 EMT = 22 
010404 013737 001170 001126 70S: MOV $TMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
010412 013737 001224 001240 MOV PORTA,PTNBR ; CHANGE PORT NUMBER 
010420 042737 100100 001126 BIC MATA'VV,SBDDAT ;DON'T CHECK ATIN BIT OR vv BIT 
010426 023737 001124 001126 CMP $SGDDAT, $BDDAT ;ALL BITS OK 
010434 001401 BEQ 71$ :BR IF OK PROM PORT A. 
010436 104007 EMT = 7 
010440 013737 001172 001126 71$: MOV $TMP3,$BDDAT ;CHECK RMDS FOR BIT FAILURES - FROM PORT 6. 
010446 013737 001226 001240 MOV PORTB,PTNBR ; CHANGE PORT NUMBER 
010454 042737 100100 001126 BIC MATA'VV,SBDDAT ;DON'T CHECK ATIN BIT OR VV BIT 
010462 023737 001124 001126 CMP $GDDAT,$BDDAT SEE IF READ OK FROM PORT B. 
010470 001401 BEQ = 72$ :BR IF OK 
010472 104007 EMT =? 
010474 000240 72$: NOP 
010476 005737 001254 TST RELERR :DID DRIVE BS ey TO NEUTRAL ? 
010502 001402 BEQ a 46 :BR IF IN NEUTRAL 
010504 000137 010760 JMP 1% 360 WAIT = 7 TO TIMEOUT 
010510 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT P 
010516 013737 001224 001240 MOV neem PTNBR MOVE te ADDR SS TO LOCATION FOR TYPEOUT 
010524 005037 001250 CLR CKERR :CLEAR THE ‘CHcCK el INDICATOR 
010530 016037 000012 001126 MOV RMDS (RO) ge 3GET CONTENTS OF R 
010536 012737 000012 001122 MOV #RMDS, $BDA DR ;FORM REGISTER ADDRESS "Ot FRROR MESSAGE 
010544 060037 001122 ADD RO, SBDADR ;ADD RH/RM BASE ADDRESS 
010550 005037 001124 CLR SGDDAT : WHAT REGISTER SHOULD BE 
010554 013737 001126 001164 MOV SBDDAT,STMPO MOVE REGISTER CONTENTS TO ‘$STMPO' 
010562 042737 077777 001164 BIC #*CATA,STMPO SAVE SPECIFIED BITS 
010570 023737 001124 001164 CMP SGDDAT,STMPO ; COMPARE THE 
010576 001414 BEQ 73$ :BR IF OK 
010600 013737 001126 001174 MOv  SBDDAT.STMP4 == :COPY._"BAD DATA" 
010606 042737 100000 001174 BIC MATA, STMP4 :CLEAR THE MASKED BITS 
010614 053737 001174 001124 BIS STMP4,SGDDAT :"OR' WITH GOOD DATA FOR TYPEOUT 
010622 104017 EMT = ‘17 
0106246 005137 001250 COM CKERR 7SET THE REGISTER COMPARE ERROR INDICATOR 
010630 000240 73$: NOP 
010632 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
010640 013737 001226 001240 MOV PORTB,PTNBR MOVE et ADDRESS TO LOCATION FOR TYPEQUT 
010646 005037 001250 CLR CKERR :CLEAR THE ‘CHECK ERROR’ INDICATOR 
010652 016037 000012 001126 MOV RMDS(RO),SBDDAT ;GET CONTENTS OF RMDS 
010660 012737 000012 001122 MOV #RMDS, $BDADR FORM REGISTER ADDRESS OF ERROR MESSAGE 
010666 060037 001122 ADD RO, $BDADR ;ADD RH/RM BASE ADDRESS 


‘3 
CZRMRAQ RMO5/3/2 DU POR TST 1 MACRO V03.01 11-APR=80 14:26:10 PAGE 8-17 
1% PORT T 


"A* SEIZE/RELEASE TES SEQ 0054 


010672 005037 HEE CLR SGDDAT ;WHAT REGISTER SHOULD BE 
010676 013737 001126 001164 MOV SBODAT,STMPO sMOVE REGISTER CONTENTS TO ‘STMPO’ 
010706 0462737 077777 001164 BIC M*CATA,STMPO ;SAVE SPECIFIED BITS 
010712 023737 001124 001164 CMP SGDDAT,STMPO ;COMPARE THE BITS 
010720 001414 BEQ 75$ BR IF OK 
010722 013737 001126 001174 MOV SBDDAT, STMP4 ;COPY "BAD DATA‘ 
010730 042737 100000 001174 BIC MATA, STMPG ;CLEAR THE MASKED BITS 
010736 053737 001174 001124 BIS STMP4 ,SGDDAT ;"OR* WITH GOOD DATA FOR TYPEOUT 
010744 104017 EMT 17 
010746 005137 001250 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
010752 000240 75$: NOP 
010754 000137 011012 JMP 23 3G0 CHECK FOR LOOP ON ERROR 
;1F RELEASE COMMAND DION'T RELEASE THE DRIVE, WAIT FOR THE PORT TIMEQUT 
;TO RELEASE THE DRIVE 
010760 1$: 
010760 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
010766 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
010774 005760 000012 TST RMDS (RO) sWAIT FOR TIMEOUT TO RELEASE DRIVE 
011000 001004 BNE 23 ;BR WHEN DRIVE RELEASED 
011002 005737 001260 TST WATCH ;CHECK THE WATCH 
011006 001364 BNE 1$ ;BR IF NOT ZERO 
011010 104036 EMT 36 
65 011012 000004 23: SCOPE ;LOOP ? 
357 
358 s eee eeaearaeenaeeeeteeeereetekeaeeeteetaneeeteneeneneteneneeenee 
seTEST 5 PORT "B' SEIZE/RELEASE TEST 
;*TEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 
s* A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING 0°S INTO RMDS. 
;* B. SET VOLUME VALID AND CLEAR ANY ERROR 
*® 
:* C. ISSUE A RELEASE COMMAND THROUGH PORT 'B'. VERIFY THAT THE DRIVE 
se BE TURNED TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 
3 DRIVE. 
i A weeeeneneeneerteeeerereeereteneneeneneeeeeeneeneeeeenenererere 
011014 TSTS: 
011014 005737 001300 TST KYBCTL PERFORMING ONLY SINGLE TEST ? 
011020 001406 BEQ 2$ . IF NOT 
011022 100002 BPL 1$ ;BR IF JUST ENTERED TEST 
011024 000137 003110 JMP EXEC RETURN & GET NEXT TEST NUMBER 
011030 012737 177777 001300 1$: MOV #-1, KYBCTL ;SET SINGLE TEST INDICATOR 
011036 012737 011052 001106 2$: MOV #TESTS,SLPADR ;SETUP SCOPE LOOP ADDRESS 
Hy eg: 012737 011052 001110 wien MOV WTESTS,SLPERR ;SETUP ERROR LOOP ADDRESS 
011052 112737 000005 001192 MOVB #5, STSTNM sMOVE #5 TO TEST NUMBER 
011060 012706 001100 MOV #STACK,SP sLOAD THE STACK POINTER 
ss0 011064 012737 000031 001176 MOV #25. ,STIMES 3:00 25. ITERATIONS 
4 
360 


START THE TIMER 
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R TST 1 
/RELEASE TEST 


001256 
003720 


001124 
001126 
000100 
001174 
001250 


000040 


001226 
001226 
000013 


001254 


001164 
001164 


011624 
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001260 


900010 
001242 


001244 
000000 


001126 
001122 


001124 


001164 
001174 


001174 
001124 


000010 


000010 
001240 
000000 


001122 
001124 


001166 


CLR 
MOV 


TIME 
#2000. ,WATCH 


CLEAR THE ELAPSED TIME COUNTER 
SET WATCH TO 2000. MS 


sSEIZE THE DRIVE AND SET VOLUME VALID 


sSEIZE THE DRIVE THROUGH PORT B 


MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
MOV ORTB, SELZPT i STORE SEIZING PORT’S ADDRESS 
CLR RMDS (RO) :WRITE RMDS 
MOV PORTA, OPPRT : OPPOSITE’ PORT ADDRESS 
MOV #21,RMCS1(RO) 7SET VOLUME VALID 
CLR CKERR ZCLEAR THE "CHECK ERROR’ INDICATOR 
MOV RMDS(RO),SBDDAT :GET CONTENTS OF R 
MOV #RMDS ,SBDADR ; FORM REGISTER ADDRESS. OF ERROR MESSAGE 
ADD RO, SBDADR ADD RH/RM BASE ADDRESS 
MOV #VV,SGDDAT :WHAT REGISTER SHOULD BE 
MOV SBDDAT, $TMP :MOVE REGISTER, CONTENTS TO "$TMPO' 
BIC #*°CVV,STMPO SAVE SPECIFIED BITS 
CMP SGDDAT,STMPO © ;COMPARE THE BITS 
BEQ 66$ :BR IF OK 
MOV SBDDAT,$TMP4 =: COPY ‘BAD DATA’ 
BIC #VV,STMP4 *CLEAR THE MASKED BITS 
B18 $TMPG .SGDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
ce: COM CKERR 7SET THE REGISTER COMPARE ERROR INDICATOR 
MOV #CLR,RMCS2(RO) :CLEAR DRIVE 
;RELEASE THE DRIVE FROM PORT B 
MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT B 
:VERIFY THAT THE DRIVE 1S STILL IN NEUTRAL 
CLR RELERR ZCLEAR THE "RELEASE ERROR ' INDICATOR 
MOV #RMDS, SBDADR : FORM THE ADDRESS OF RMDS FOR TYPEQUT 
ADD RO, SBDADR ADD THE 1/0 BASE ADDRESS 
MOV #MOL'PGM'DPR'DRY. * SGDDAT {COMPARISON CONSTANT 
MOVB = PORTA, RMCS2(RO) :SELECT PORT 
MOV RMDS(RO),$TMP2 :GET THE DRIVE "STATUS REGISTER FROM PORT A. 
BIC #PIP'WRL'OM,STMP ZCLEAR DONT CARES 
MOV STMP2,$TMPO sCOPY IT INTO ‘S$TMPO' 
BIC WATA'VV,STMPO =: CLEAR PORT DEPENDENT BITS FROM THE COPY 
MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
MOV 2MDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
BIC #PIP'WRL'OM,STMPS :CLEAR DONT CARES 
MOV $TMPS,$T >COPY IT INTO ‘STMP1' 
BIC HETALVV, STMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
CMP $TMPO,STMPI 71S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
BNE 68$ ‘BR IF NOT 
TST $TMP) : REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BNE 70$ BR IF 
EMT 46 
JMP 72% :BYPASS THE REST OF THE CHECKS 
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15 PORT "B' SEIZE/RELEASE T SEQ 0056 
011444 013737 001170 001126 68s: MOV STMP2,SBDDAT ;SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
011452 013737 001226 001240 MOV PORTB,PTNBR sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
011460 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 
011466 005737 001164 TST STMPO :SEE IF STATUS EQ 0 FROM PORT A. 
011472 001414 BEQ 69$ :BR IF ZERO 
011474 013737 001224 001240 MOV PORTA,PTNBR sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
011502 013737 001172 001126 MOV STMP3,$BDDAT ;'BAD DATA’ FOR ERROR TYPE OUT 
011510 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A. 
011516 005737 001166 TST STMP1 :SEE IF STATUS EQ ZERO FROM PORT B. 
011522 001004 BNE 70$ ;BR_ IF NOT 
011524 012737 177777 001254 69S: MOV #-1,RELERR ;SET "RELEASE ERROR' INDICATOR 
011532 104022 EMT 22 
011534 013737 001170 001126 70$: MOV STMP2, SBDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
011542 013737 001224 001240 MOV PORTA,PTNBR ; CHANGE PORT NUMBER 
011550 042737 100100 001126 BIC WATA‘VV,$BDDAT ;DON'T CHECK ATTN BIT OR vv BIT 
011556 023737 001124 001126 CMP SGDDAT,SBDDAT ;ALL BITS OK ? 
011564 001401 BEQ 71$ ;BR IF OK FROM PORT A. 
011566 104007 EMT 7 
011570 013737 001172 001126 71$: MOV STMP3,$BDDAT ;CHECK RMDS FOR BIT FAILURES = FROM PORT B. 
011576 013737 001226 001240 MOV PORTB,PTNBR CHANGE PORT NUMBER 
011604 042737 100100 001126 BIC MATA‘VV,SBDDAT ;DON'T CHECK ATTN BIT OR vv BIT 
011612 023737 001124 001126 CMP SGDDAT,SBDDAT  ;SEE IF READ OK FROM PORT B. 
011620 001401 BEQ 72$ :BR IF OK 
011622 104007 EMT 7 
011624 000240 72$: NOP 
011626 005737 001254 TST RELERR :D1D DRIVE RETURN TO NEUTRAL ? 
011632 001402 BEQ +6 BR IF IN NEUTRAL 
011634 000137 012110 JMP 1$ :GO WAIT FOR DRIVE TO TIMEOUT 
011640 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
011646 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
011654 005037 001250 CLR CKERR ;CLEAR THE ‘CHECK ERROR' INDICATOR 
011660 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
911666 012737 000012 001122 MOV #RMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
011674 060037 001122 ADD RO,$BDADR :ADD_RH/RM BASE ADDRESS 
011700 005037 001124 CLR $GDDAT sWHAT REGISTER SHOULD BE 
011704 013737 001126 001164 MOV SBDDAT,STMPO s;MOVE REGISTER CONTENTS TO ‘S$TMPO' 
011712 042737 077777 001164 BIC M*°CATA,STMPO ;SAVE SPECIFIED BITS 
011720 023737 001124 001164 CMP SGDDAT ,$TMPO :COMPARE THE BITS 
011726 001414 BEQ 73$ ;BR_ IF OK 
011730 013737 001126 001174 MOV SBDDAT ,STMP4 ;COPY “BAD DATA’ 
011736 042737 100000 001174 BIC MATA,STMPG :CLEAR THE MASKED BITS 
011744 053737 001174 001124 BIS STMP4 ,SGDDAT :'OR* WITH GOOD DATA FOR TYPEOUT 
011752 104017 EMT 17 
011754 005137 001250 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
011760 000240 73$: NOP 
011762 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
011770 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
011776 005037 001250 CLR CKERR ;CLEAR THE “CHECK ERROR INDICATOR 
012002 016037 000012 001126 MOV RMDS(RO),$BODAT ;GET CONTENTS OF RMDS 
012010 012737 000012 001122 MOV #RMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
012016 060037 001122 ADD RO, SBDADR ;ADD_RH/RM BASE ADDRESS 
012022 005937 001124 CLR SGDDAT WHAT REGISTER SHOULD BE 
012026 013737 001126 001164 MOV SBDDAT ,STMPO :MOVE REGISTER CONTENTS TO ‘$TMPO" 
012034 042737 077777 001164 BIC #*CATA,STMPO ;SAVE SPECIFIED BITS 
012042 023737 001124 001164 CMP SGDDAT ,STMPO :COMPARE THE BITS 
012050 001414 BEQ 75% ;BR IF OK 
012052 013737 001126 001174 MOV SBDDAT,STMP4 :COPY "BAD DATA‘ 
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*B’ SEIZE/RELEASE TEST 
012060 042737 100000 001174 BIC HATA, STMPG :CLEAR THE MASKED BIT 
012066 053737 001174 001124 BIS $TMP4,$GDDAT :'OR' WITH GOOD DATA Por TYPEOUT 
012074 104017 EMT 17 
012076 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
012102 000240 75$: NOP 
012104 000137 012142 JMP 2$ 3;GO CHECK FOR LOOP ON ERROR 
;1F RELEASE COMMAND DIDN'T RELEASE THE DRIVE, WAIT FOR THE PORT TIMEOUT 
:TO RELEASE THE DRIVE 
012110 1$: 
012110 113760 001224 000010 MOVB = PORTA,RMCS2(RO) ;SELECT PORT A 
012116 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
012124 005760 000012 TST RMDS (RO) ;WAIT FOR TIMEOUT TO RELEASE DRIVE 
012130 001004 BNE 2$ [BR WHEN DRIVE RELEASED 
012132 005737 001260 TST WATCH “CHECK THE WATCH 
012136 001364 BNE 1$ ‘BR IF NOT ZERO 
012140 104036 EMT 36 
012142 000004 es: SCOPE s;LOOP ? 
° RRR eee ee eee 
#TEST 6 PORT ‘'A' NEUTRAL/RELEASE TEST 
:*TEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 
oe A. ISSUE A RELEASE COMMAND THROUGH PORT ‘A‘ WITH THE DRIVE IN 
- NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 
# LARBRRSASRSRSSERERERERERERERESESE SESS ESESESESEEALASEAEASASAESESAAL EE EY 
012144 TST6: 
012144 005737 001300 TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
012150 001406 BEQ 2$ <BR IF NOT 
012152 100002 BPL 1$ [BR IF JUST ENTERED TEST 
012154 000137 003110 JMP EXEC = RETURN & GET NEXT TEST NUMBER 
012160 012737 177777 001300 18: MOV #-1 .KYBCTL [SET SINGLE TEST INDICATOR 
012166 012737 012202 001106 2%: MOV HTEST6,$LPADR SETUP SCOPE LOOP ADDRESS 
012174 012737 012202 001110 see MOV #TESTO.SLPERR SETUP ERPOR LOOP ADDRESS 
012202 112737 000006 001102 " MOVB #6, $TSTNM :MOVE #6 TC TEST NUMBER 
012210 012706 001100 MOV MSTACK,SP ;LOAD THE STACK POINTER 
012214 012737 000031 001176 MOV #25. STIMES £;D0 25. ITERATIONS 
012222 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
012230 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
012236 013737 001224 001242 MOV PORTA, SEIZPT ;ADDR OF PORT WHICH WILL ISSUE RELEASE 
SISSUE A 4RELEASE COMMAND 
012244 012760 000013 000000 #13,RMCSI(CRO)  ;1SSUE A RELEASE COMMAND 
:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
012252 005037 001254 CLR RELERR :CLEAR THE "RELEASE ERROR * INDICATOR 
012256 012737 000012 001122 MOV #RMDOS,SBDADR oo THE ADDRESS OF RMDS FOR TYPEOUI 
012264 060037 001122 ADD RO, SBOADR D THE 1/9 BASE ADDRESS 
012270 012737 011700 001124 MOV WMO. TPGMIDPRIDRYI vy. SGDDAT ; COMPARISON CONSTANT 
012276 113760 001224 000010 MOVB PORTA,RMCS2(RO) SELECT PORT A, 
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16 PORT ‘A’ NEUTRAL/RELEASE TEST SEQ 0058 
012304 016037 000012 001170 MOV RMDS(RO),$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
012312 042737 024001 001170 BIC #PIP'WRL'OM,STMPO ;CLEAR DONT CARES 
012320 013737 001170 001164 MOV STMP2,$TMPO sCOPY IT INTO ‘$TMPO' 
012326 042737 100100 001164 BIC MATA‘ VV,STMPO ;CLEAR PORT Fs anaes BITS FROM THE COPY 
012334 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
012342 016037 000012 001172 MOV RMDS(RO),STMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
012350 042737 024001 001172 BIC #PIP'WRL'OM, $TmP3 ; CLEAR ll CARES 
012356 013737 001172 001166 MOV STMP3,STMP1 s COPY It INTO ‘STM 
012364 042737 100100 001166 BIC HATA'VV, STMP1 sCLEAR PORT DEPENDENT BITS FROM THE COPY 
012372 023737 001164 001166 CMP STMPO,STMP1 31S THE we REGISTER THE SAME FROM BOTH PORTS ? 
012400 001006 BNE 64$ BR IF 
012402 005737 001164 TST $STMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
012406 001045 BNE 66$ BR IF 
012410 104046 EMT 46 
012412 000137 012612 JMP 68$ ;BYPASS THE REST OF THE CHECKS 
012416 013737 001170 001126 648: MOV STMP2,$BDDAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
012424 013737 001226 001240 MOV PORTB,PTNBR : SEIZING oa IF TEST SHOWS DRIVE NOT IN NEUTRAL 
012432 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT B. 
012440 005737 001164 TST $STMPO SEE IF STATUS EQ 0 FROM PORT A. 
012444 001414 BEQ 65% “BR IF ZERO 
012446 013737 001224 001240 MOV PORTA,PTNBR sSEIZING PORT IF TEST SHOWS es NOT IN NEUTRAL 
012454 013737 001172 001126 MOV $STMP3,SBDDAT ; "BAD DATA’ 4+ ERROR TYPE OUT 
012462 113760 001224 000010 MOVB = PORTA.RMCS2(RO) :SELECT PORT 
012470 005737 001166 TST STMP1 sSEE IF STATUS’ EQ ZERO FROM PORT B. 
012474 001012 BNE 66$ :BR IF NOT 
012476 012737 177777 001254 65$: MOV #-1,RELERR ;SET "RELEASE ERROR’ INDICATOR 
012504 012760 000011 000000 MOV #11,RMCS1(RO)  :CLEAR THE DRIVE 
012512 012760 000013 000000 MOV #13,RMCS1(RO)  :RELEASE THE DRIVE 
012520 104030 EMT 30 
012522 013737 001170 001126 66%: Mov $TMP2,$BDDAT LOOK FOR BIT FAILURES WHEN RMDS READ 
012530 013737 001224 001240 MOV PORTA,PTNBR ; CHANGE PORT NUMBER 
012536 042737 100000 001126 BIC #ATA, $BDDAT ‘DON'T CHECK THE ATIN BIT 
012544 023737 001124 001126 CMP $GDDAT,SBDDAT ALL BITS OK ? 
012552 001401 BEQ 67$ ;BR IF OK FROM PORT A, 
012554 104007 EMT ? 
012556 013737 001172 001126 67%: MOV $TMP3,$BDDAT ;CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
012564 013737 001226 001240 MOV PORTB,PTNBR ; CHANGE PORT NUMBER 
012572 042737 100000 001126 BIC #ATA, $BDDAT [DON'T CHECK THE ATIN BIT 
012600 023737 001124 001126 CMP $GDDAT, $BDDAT * SEE IF READ OK FROM PORT B. 
012606 001401 BEQ 68$ “BR IF OK 
012610 104007 EMT ? 
012612 000240 68$: NOP 
012614 000004 SCOPE ;LOOP ? 
388 
397 
398 PIRATE eee eee Reet 
seTeS! 7 PORT 'B' NEUTRAL/RELEASE TEST 
:*TEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 
+ A. ISSUE A RELEASE COMMAND THROUGH PORT 'B' WITH THE DRIVE IN 
2@ NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 
‘® 
MIIITITITITIITITTITITTI TTT I TILT iiTiiiiii Tt Tiiiiiie eee 
012616 1517: 
012616 005737 001300 TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
012622 001406 BEQ 2% ;BR IF NOT 
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17 PORT *B' NEUTRAL/RELEASE TEST 5EQ 0059 
012624 100002 BPL 1$ :BR IF JUST ENTERED TEST 
0*2626 000137 003110 JMP EXEC ;RETURN & GET NEXT TEST NUMBER 
012632 012737 177777 001300 1$: MOV #-1,KYBCTL SSET SINGLE TEST INDICATOR 
012640 012737 012654 001106 28: MOV HTEST7,$LPADR SETUP SCOPE LOOP ADDRESS 
BiSece 012737 012654 001110 rest? MOV WTEST7,SLPERR ;SETUP ERROR LOOP ADDRESS 
012654 112737 000007 001102 MOVB = #7, STSTNM :MOVE #7 TO TEST NUMBER 
012662 012706 001100 MOV MSTACK,SP ;LOAD THE STACK POINTER 
ws 012666 012737 000031 001176 MOV #25. STIMES +;D0 25. ITERATIONS 
400 012674 113760 001226 000010 MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
012702 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
012710 013737 001226 001242 MOV PORTB,SEIZPT ;ADDR OF PORT WHICH WILL ISSUE RELEASE 
sISSUE A 4RELEASE COMMAND 
012716 012760 000013 000000 W13,RMCS1(RO)  ;ISSUE A RELEASE COMMAND 
;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
012724 005037 001254 CLR RELERR ;CLEAR THE ‘RELEASE ERROR ' INDICATOR 
012750 012737 000012 001122 MOV #RMDS,SBDADR oy THE ADDRESS OF RMDS FOR TYPEOUT 
012736 060037 001122 ADD RO, $BDADR D THE 1/0 BASE ADDRESS 
012742 012737 011700 001124 MOV SMO |PGM'DPR!DRYiVy. $GDDAT + <bean CONSTANT 
012750 113760 001224 000010 MOVB PORTA, RMCS2(RO) SSELECT PORT 
012756 (16037 000012 001170 MOV RMDS(RO), STMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
012764 042737 024001 001170 BIC #PIP!WRL'OM,$TMP2 :CLEAR DONT CARES 
012772 013737 001170 0u1164 MOV $TMP2, STMPO sCOPY IT INTO "S$TMPO* 
013000 042737 100100 001164 BIC HATA‘VV, STMPO ‘CLEAR PORT os ines BITS FROM THE COPY 
013006 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
013014 016037 000012 001172 MOV RMDS (RO) »STMP3 GET THE DRIVE STATUS REGISTER FROM PORT B. 
013022 042737 024001 001172 BIC #P1P!WRL ‘OM, STMPS :CLEAR DONT CARES 
013030 013737 001172 001166 MOV STMP3,$TMP1 ;COPY IT INTO ‘STMP1' 
013036 042737 100100 001166 BIC HATALVV, STMP1 ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
013044 023737 001164 001166 CMP STMPO, $TMP1 31S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
013052 001006 BNE 64$ ‘BR IF NOT 
013054 005737 001164 TST STMPO dH ARE THE SAME: ARE THEY ZERO ? 
013060 001045 BNE 66$ BR IF 
013062 104046 EMT 46 
013064 000137 013264 JMP 68$ ;BYPASS THE REST OF THE CHECKS 
013070 013737 001170 001126 64%: MOV STMP2,$BDDAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
013076 013737 001226 001240 MOV PORTB,PTNBR sSEIZING om IF TEST SHOWS DRIVE NOT IN NEUTRAL 
013104 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT B. 
013112 005737 001164 TST STMPO ++, IF ors EQ 0 FROM PORT A, 
013116 001414 BEQ 65$ BR IF ZERO 
013120 013737 001224 001240 MOV PORTA, 4 of ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
013126 013737 001172 001126 MOV $TMP3,$BDD : : BAD DATA’ FOR ERROR TYPE OUT 
013134 113760 001224 000010 MOVB PORTA, Rae CRO? sSELECT PORT A. 
013142 005737 001166 TST STMP1 ;SEE IF STATUS EQ ZERO FROM PORT B. 
013146 001012 BNE 66$ :BR IF NOT 
013150 012737 177777 001254 65$: MOV #-1,RELERR 'SET "RELEASE ERROR’ INDICATOR 
013156 012760 000011 000000 MOV #11,RMCS1(RO)  :CLEAR THE DRIVE 
013164 012760 000013 000000 MOV #13,RMCS1(RO)  :RELEASE THE DRIVE 
013172 104030 EMT 30 
013174 013737 001170 001126 66$: MOV STMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
013202 013737 001224 001240 MOV PORTA.PTNBR SCHANGE PORT NUMBER 
013210 042737 100000 001126 BIC WATA, $BDDAT [DON'T CHECK THE ATTN BIT 
013216 023757 001124 001126 CMP $GDDAT,$BDDAT ALL BITS OK ? 
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RMRAO RMOS/3/2 DU POR 
PORT "B' NEUTRAL/RELEASE TEST SEQ 0060 
013224 001401 BEQ 67$ :BR IF OK FROM PORT A. 
013226 104007 EMT 7 
013230 013737 001172 001126 67%: Mov STMP3,$BDDAT = CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
013236 013737 001226 001240 MOV PORTB.PTNBR ;CHANGE PORT NUMBER 
0132464 042737 100000 001126 BIC HATA, $BDDAT ‘DON'T CHECK THE ATTN BIT 
013252 023737 001124 001126 CMP $GDDAT,SBDDAT :SEE IF READ OK FROM PORT B. 
913260 001401 BEQ 68$ ‘BR IF OK 
013262 104007 EMT 7 
013264 000240 68$: NOP 
a 013266 000004 SCOPE :LOOP ? 
420 
421 ‘heehee RRP R REPRESSES SECS SO SSCS SSE SASOELSS SY 
: TEST 10 PORT 'A' RELEASE INTERFERENCE TEST 
:*VERIFY THAT A COMMAND ISSUED BY - PORT IS NOT RECCGNIZED IF THE DRIVE 
: 1S SEIZED BY THE OTHER PORT 
ie A SEIZE THE DRIVE THROUGH PORT 'B" BY WRITING O'S INTO RMDS. 
:* B. ISSUE A RELEASE COMMAND THROUGH PORT ‘A’. 
:* (C. VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT ‘B’. 
ie D RELEASE THE DRIVE THROUGH PORT 'B'. VERIFY THAT THE DRIVE SWITCHED 
yf TO PORT ‘A’. 
* E. RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT Rte DRIVE RETURNED 
7* TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 
* 
:: LAORSSASALA LE SASS SSSESERESEES EEE ESSERE ESOS ESEESLAELSCBLEOSCLCLACSBLALES © 
013270 1§110: 
013270 005737 001300 TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
013274 001406 BEQ 2$ :BR IF NOT 
013276 100002 BPL 1$ :BR IF JUST ENTERED TEST 
013300 000137 003110 JMP EXEC :RETURN & GET NEXT TEST NUMBER 
013304 012737 177777 001300 1S: MOV #-1,KYBCTL [SET SINGLE TEST INDICATOR 
013312 012737 013326 001106 2%: MOV #TESTIO,$LPADR :SETUP SCOPE LOOP ADDRESS 
013320 012737 013326 001110 tah MOV #TESTIO.S$LPERR :SETUP ERROR LOOP ADDRESS 
013326 112737 000010 001102 “ MOVB = #10, $TSTNM :MOVE #10 TO TEST NUMBER 
013334 012706 001100 MOV MSTACK,SP ;LOAD THE STACK POINTER 
va 013340 012737 000031 001176 MOV #25. $TIMES +;D0 25. ITERATIONS 
446 
;CLEAR ATTENTION BITS FOR BOTH PORTS 
013346 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT #A 
013354 005060 000012 CLR RMDS (RO) ‘SEIZE THE DRIVE 
013360 012760 000011 000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
013366 012760 000013 000000 MOV W13-RMCS1(RO) RELEASE THE DRIVE 
013374 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT #B 
013402 005060 000012 CLR RMDS (RO) [SEIZE THE DRIVE THROUGH PORT ‘B' 
013406 012749 000011 000000 MOV #11,RMCSI(RO) ISSUE DRIVE CLEAR 
013414 012760 000013 000000 MOV #13-RMCS1(RO)  =RELEASE THE DRIVE 


SEIZE THE DRIVE THROUGH PORT B 
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CZR 
110 PORT ‘A’ RELEASE INTERFERENCE TEST SEQ 0061 

013422 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 

013430 013737 001226 001242 MOV PORTB,SEIZPT : STORE gp th PORT'S ADDRESS 

013436 005060 000012 CLR RMDS (RO) sWRITE RMD 

013442 113760 001224 000010 MOVB penta’ RMCS2(RO) SELECT P 

013450 013737 001224 001240 MOV PORTA,PTNBR :Move PORT ADDRESS " LOCATION FOR TYPEOUT 

013456 013737 001224 001244 MOV PORTA,OPPRT :'OPPOSITE’ PORT ADDRESS 

013464 016037 000012 001126 MOV RMDS (RO) SBDDAT iSEE Ny et he SEIZED BY PORT B 

013472 010037 001122 MOV RO, $BDADR M BASE ADDRES 

013476 062737 000012 001122 ADD #RMDS ,SBDADR ‘GENERATE BAD REGISTER ADDRESS 

013504 005037 001124 CLR SGDDAT REGISTER SHOULD BE ZER0 

013510 023737 001124 001126 CMP SGDDAT,$BDDAT ;1S THE REGISTER ZERS 

013516 001403 BEQ 64% :BR IF IT IS 

013520 104004 EMT 4 

By seSe 000137 014532 ata JMP 1$ ;BYPASS REST OF THE SUBTEST 

013526 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 

013534 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

013542 016037 000012 001126 MOV RMDS (RO) SBDDAT sSEE IF SEIZING PORT SEES CORRECT STATUS 

013550 042737 020001 001126 BIC #OM'PIP, $BDD ;CLEAR DONT CARE BITS 

013556 012737 011700 001124 MOV #MOL.' PGM' DPR “DRY! VV, $GDDAT ees STATUS 

013564 013737 001124 001166 MOV SGDDAT,$TMP1 ;USE GOOD DATA AS A MASK 

013572 005137 001166 COM STMP1 COMPLEMENT THE EXPECTED STATUS 

013576 013737 001126 001164 MOV SBDDAT ,STMPO SAVE THE ACTUAL STATUS 

013604 043737 001166 001164 BIC $TMP1,$TMPO :CLEAR UNWANTED BITS 

013612 023737 001124 001164 CMP $GDDAT ,$TMPO sARE THE EXPECTED STATUS BITS SET ? 

013620 001401 BEQ 65$ ;BR IF THEY ARE 

013622 104005 EMT 5 

013624 000240 65$: NOP 
;TRY TO EXECUTE A RELEASE COMMAND THROUGH PORT A 

013626 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 

013634 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

013642 012760 000013 000000 MOV W13,RMCS1(RO)  ;ISSUE A RELEASE COMMAND THROUGH PORT A 
;VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT B 

013650 005037 001250 CLR CKERR ;CLEAR THE ‘CHECK ERROR® INDICATOR 

013654 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 

013662 012737 000012 001122 MOV #RMDS, SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 

013670 060037 001122 ADD RO,$BD ;ADD_RH/RM BASE ADDRESS 

013674 005037 001124 CLR $GODAT WHAT REGISTER SHOULD BE 

013700 023737 001124 001126 CMP SGDDAT,SBDDAT ;1S THE REGISTER OK ? 

013706 001403 BEQ 66$ BR IF OK 

013710 104010 EMT 10 

013712 005137 001259 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 

013716 016037 000000 001126 66%: MOV RMCS1(RO), SBDDAT GET THE CONTENTS OF RHCS1 

013724 012737 000000 001122 MOV WRMCSI, SBDAD FORM ADDRESS OF REGISTER 

013732 060037 001122 ADD RO,$BDA ADDRESS BASE 

013736 032737 020000 001126 BIT WMCP. SBDDAT :1S "MCPE' SET ? 

013744 001404 BEQ 67% :BR IF NOT 

013746 104011 EMT 11 

013750 012760 040000 000000 MOV WTRE,RMCSI(RO) [CLEAR '"MCPE' 

013756 000240 67$: NOP 

013760 005737 001250 TST CKERR ;WAS RMDS NON ZERO ? 

013764 001402 BEQ +6 ;CONTENTS OF RMDS SEEN BY PORT A 
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CZR 
T10 PORT ‘A’ RELEASE INTERFERENCE TEST SEQ 0062 
013766 000137 014532 JMP 1$ :DRIVE IN NEUTRAL, BYPASS REST OF TEST 
;RELEASE THE DRIVE FROM PORT B 
013772 113760 001226 000010 MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
014000 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
014006 012760 000013 000000 MOV #13,RMCS1(RO)  ;ISSUE RELEASE THROUGH PORT B 
;VERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT B 
014014 005037 001254 CLR RELERR :CLEAR "RELEASE ERROR’ INDICATOR 
014020 012737 111700 001124 MOV WATA'MOL!PGM!DPR'DRY'VV,$GDDAT ;COMPARISON CONSTANT 
014026 012737 000012 001122 MOV WRMDS SBDADR ;REGISTER ADDRESS INCREMENT 
014034 060037 001122 ADD RO, $BDADR ; REGISTER BASE ADDRESS FOR TYPEOUT 
014040 113760 001224 000010 MOVB PORTA,RMCS2(RO) SELECT 
014046 013737 001224 001240 MOV PORTA.PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TyPEOUT 
014054 016037 000012 001164 MOV RMDS(RO),$TMPO ;READ STATUS REGISTER FROM PORT A 
014062 113760 001226 000010 MOVB PORTB,RMCS2(RO) ':SELECT PORT B 
014070 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
014076 016037 000012 001126 MOV RMDS(RO),$BDDAT ;DRIVE STATUS FROM PORT B 
014104 001404 BEQ 68$ :BR IF STATUS FROM PORT B ZERO 
014106 005737 001164 TST $TMPO :1S STATUS FROM PORT A ZERO ? 
014112 001401 BEQ 68$ ‘BR IF ZERO 
014114 104031 EMT 31 
014116 013737 001164 001126 68%: MOV STMPO,S$BDDAT CHECK STATUS FROM PORT A 
014124 013737 001224 001240 MOV PORTA, PTNBR :CHANGE PORT ADDRESS FOR TYPEOUT 
014132 023737 001124 001126 CMP SGDDAT,$BDDAT :COMPARE WITH CONSTANT 
014140 001401 BEQ 69$ ‘BR IF OK 
014142 104027 EMT 27 
014144 000240 69$: NOP 
;RELEASE THE DRIVE FROM PORT A 
014146 113760 001224 000010 MOVB  PORTA,RMCS2(RO) ;SELECT PORT A 
014154 013737 001224 001240 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
014162 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT A 
;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
014170 005037 001254 CLR RELERR :CLEAR THE "RELEASE ERROR ' INDICATOR 
014174 012737 000012 001122 MOV WRMDS SBDADR — FORM THE ADDRESS OF RMDS FOR TYPEOUT 
014202 060037 001122 ADD RO, $BDADR ADD THE 1/0 BASE ADDRESS 
014206 012737 011700 001124 MOV #MOL 'PGM!DPR'DRYIVV, SGDDAT : COMPAR! SON CONSTANT 
014214 113760 001224 000010 MOVB  PORTA,RMCS2(RO) :SELECT PORT 
014222 016037 000012 001170 MOV RMDS(RO),$TMP2 :GET THE DRIVE “STATUS REGISTER FROM PORT A. 
014230 042737 024001 001170 BIC #PIP'WRL ‘OM, STMP2 :CLEA DONT CARES 
014236 013737 001170 001164 MOV STMP2,$TMPO sCOPY IT INTO ' ‘ 
014244 042737 100100 001164 BIC WATA'VV,STMPO  :CLEAR PORT DEPENDENT BITS FROM THE COPY 
014252 113760 001226 00001 MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
014260 016037 000012 001172 MOV RMDS(RO), THp3 *GET THE DRIVE STATUS REGISTER FROM PORT B. 
014266 042737 024001 001172 BIC #PIP!'WRL'OM,STMPS :CLEAR DONT CARES 
014274 013737 001172 001166 MOV STMP3,STHP1 :COPY IT INTO ‘$TMP1' 
014302 042737 100100 001166 BIC #ATA'VV,$TMP1 CLEAR PORT DEPENDENT BITS FROM THE C 
014310 023737 001164 001166 CMP STMPO,STMP1 i1S THE STATUS REGISTER THE SAME FROM” BOTH PORTS ? 
014316 001006 BNE 70$ NOT 
014320 005737 001164 TST $TMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
014324 001045 BNE 72$ ‘BR IF 
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CZR 
T10 PORT 'A' RELEASE INTERFERENCE TEST SEQ 0063 
014326 104046 EMT 46 
014330 000137 014530 JMP 74$ ;BYPASS THE REST OF THE CHECKS 
014334 013737 001170 001126 70$: Mov STMP2,$BDDAT § ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
014342 013737 001226 001240 MOV PORTB,PTNBR ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
014350 113760 001226 000010 MOVB  PORTB,RMCS2(RO) ;SELECT PORT B. 
014356 005737 001164 TST STMPO ;SEE IF STATUS EQ 0 FROM PORT A. 
014362 001414 BEQ 71$ BR IF ZER 
014364 013737 001224 001240 MOV PORTA, PTNBR ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
014372 013737 001172 001126 MOV STMP3,$BDDAT _—; 'BAD DATA’ FOR ERROR TYPE OUT 
014400 113760 001224 000010 MOVB  PORTA,RMCS2(RO) ;SELECT PORT A 
014406 005737 001166 TST $TMP1 SEE IF STATUS EQ ZERO FROM PORT 8. 
014412 001012 BNE 72$ BR IF NOT 
014414 012737 177777 001254 71$: MoV #-1,RELERR 7SET "RELEASE ERROR’ INDICATOR 
014422 012760 000011 000000 MOV W11,RMCS1(RO) CLEAR THE DRIVE 
014430 012760 000013 000000 MOV #13,RMCS1(RO) [RELEASE THE DRIVE 
014436 104026 EMT 26 
014440 013737 001170 001126 72$: Mov $TMP2,$BDDAT | ;LOOK FOR BIT FAILURES WHEN RMDS READ 
014446 013737 001224 001240 MOV PORTA, PTNBR ;CHANGE PORT NUMBER 
014454 042737 100000 001126 BIC HATA, SBDDAT ;DON'T CHECK THE ATTN BIT 
014462 023737 001124 001126 CMP $GDDAT,$BDDAT ALL BITS OK ? 
014470 001401 BEQ 73$ :BR IF OK FROM PORT A. 
014472 104007 EMT 7 
014474 013737 001172 001126 73$: Mov STMP3,$BDDAT § ; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
014502 013737 001226 001240 MOV PORTB,PTNBR ;CHANGE PORT NUMBER 
014510 042737 100000 001126 BIC HATA, $BDDAT ;DON'T CHECK THE ATTN BIT 
014516 023737 001124 001126 CMP $GDDAT,SBDDAT SEE IF READ OK FROM PORT B. 
014524 001401 BEQ 74$ BR IF OK 
014526 104007 EMT 7 
014530 000240 74$: NOP 
aap 216552 000004 1$: SCOPE LOOP ? 
466 
467 SERA TETRA KEKE 
: TEST 1 PORT 'B' RELEASE INTERFERENCE TEST 
!eVERIFY THAT A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 
if 1S SEIZED BY THE OTHER PORT. 
:* A, SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING O'S INTO RMDS. 
;* B. ISSUE A RELEASE COMMAND THROUGH PORT ‘B'. 
:* 
:* (. VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT ‘A’. 
it D. RELEASE THE DRIVE THROUGH PORT 'A'. VERIFY THAT THE DRIVE SWITCHED 
_* 
‘* 
:* E, RELEASE THE DRIVE THROUGH PORT 'B'. VERIFY THAT THE DRIVE RETURNED 
ie TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 
** 
t: IRE RSBRSSASESASZASERRSERSRRSRARERE SERS SSE SESE R RRR RE SESE RR SEER EES 
014534 $111: 
014534 005737 001300 TST KYBCTL {PERFORMING ONLY SINGLE TEST ? 
014549 001406 BEQ 2$ BR IF NOT 
014542 100002 BPL 1$ :BR If JUST ENTERED TEST 
014544 000137 003110 JMP EXEC ;RETURN & GET NEXT TEST NUMBER 
014550 012737 177777 001300 1% MOV #1, KYBCTL SET SINGLE TEST INDICATOR 
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CZRMRAO ee af DU PO 
111 B' RELEASE INTERFERENCE TEST SEQ 0064 
014556 012737 014572 001106 28: MOV MTESTII,$LPADR ;SETUP SCOPE LOOP ADDRESS 
pyeess 012737 014572 001110 Testi MOV MTESTI1,$LPERR ;SETUP ERROR LOOP ADDRESS 
014572 112737 000011 001102 MOVB #11,$TSTNM sMOVE #11 TO TEST NUMBER 
014600 012706 001100 MOV MSTACK ,SP ;LOAD THE STACK POINTER 
“s 014604 012737 000031 001176 MOV #25. ,STIMES 3300 25. ITERATIONS 
469 
;CLEAR ATTENTION BITS FOR BOTH PORTS 
C14612 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT #A 
014620 005060 000012 CLR RMDS (RO) :SEIZE THE DRIVE 
014624 012760 000011 000000 MOV M11,RMCSI(RO) ;ISSUE DRIVE CLEAR 
014632 012760 000013 000000 MOV W13,RMCS1(RO)  ;RELEASE THE DRIVE 
014640 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT #B 
014646 005060 009012 CLR RMDS (RO) SEIZE THE DRIVE THROUGH PORT ‘B' 
014652 012760 000631 000000 MOV M11,RMCS1(RO) ISSUE DRIVE CLEAR 
014660 012760 000013 000000 MOV W13,RMCS1(RO) [RELEASE THE DRIVE 
SEIZE THE DRIVE THROUGH PORT A 
014666 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
014674 013737 001224 001242 MOV PORTA,SEIZPT ;STORE SEIZING PORT'S ADDRESS 
014702 005060 000012 CLR RMDS (RO) sWRITE RMDS 
014706 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELeCT PORT B 
014714 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
014722 013737 001226 001244 MOV PORTB,OPPRT :"OPPOSITE' PORT ADDRESS 
014730 016037 000012 001126 MOV RMDS (ROD , SBDDAT iSEE iy DRIVE SEIZED BY PORT A 
014736 010037 001122 MOV RO,$BDADR ;RH/RM BASE ADDRESS 
014742 062737 000012 001122 ADD aRADS , SBDADR :GENERATE BAD REGISTER ADDRESS 
014750 005037 001124 CLR $GDDAT REGISTER SHOULD BE ZERO 
014754 023737 001124 001126 CMP $GDDAT,SBDDAT 1S THE REGISTER ZERO 
014762 001403 BEQ 64$ BR IF IT IS 
014764 104004 EMT 4 
Ore 788 000137 015776 “as JMP 1$ BYPASS REST OF THE SUBTEST 
014772 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
015000 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
015006 016037 000012 001126 MOV RMDS (RO) , $B BODAT SEE IF SEIZING PORT SEES CORRECT STATUS 
015014 042737 020001 001126 BIC #OM!PIP,$BD ;CLEAR DONT CARE BITS 
015022 012737 011700 001124 MOV #MOL'PGA'DPR ‘DRY! VV, SGDDAT eet STATUS 
015030 013737 001124 001166 MOV $GDDAT,STMP1 ;USE GOOD DATA’AS A MASK 
015036 005137 001166 COM STMP1 COMPLEMENT THE EXPECTED STATUS 
015042 013737 001126 001164 MOV SBDDAT ,STMPO ;SAVE THE ACTUAL STATUS 
015050 043737 001166 001164 BIC STMP1,STMPO ;CLEAR UNWANTED BITS 
015056 023737 001124 001164 CMP SGDDAT ,STMPO sARE THE tap STATUS BITS SET ? 
015064 001401 BEQ 65$ :BR IF THEY ARE 
015066 104005 EMT 5 
015070 000240 65$: NOP 
TRY TO EXECUTE A RELEASE COMMAND THROUGH PORT B 
015072 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
015100 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
015106 012760 000013 000000 MOV W13,RMCS1(RO) [ISSUE A RELEASE COMMAND THROUGH PORT B 


VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT A 


CZRMRAO RMOS/3/2 DU POR TST 1 
111 PORT "B* RELEASE INTERFERENCE TEST 
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000010 
001240 
000000 


000010 
001240 
000000 


66$: 


67$: 


CLR CKERR ;CLEAR THE ‘CHECK — INDICATOR 
MOV RMDS(RO),SBDDAT ;GET CONTENTS OF RMDS 

MOV #RMDS ,SBDADR ;FORM REGISTER ren te OF ERROR MESSAGE 
ADD RO, SBDADR ;ADD_RH/RM BASE ADDRESS 

CLR $GDDAT WHAT REGISTER SHOULD BE 

CMP SGDDAT,SBDDAT ;1S THE REGISTER OK ? 

eat oes ;BR IF OK 

COM CKERR :SET THE S Coat en we A ee INDICATOR 
MOV coated Eat — GET THE CONTENTS OF $1 

MOV #RMCS1,SBDAD FORM ADDRESS OF REGISTER 

ADD RO, SBDADR ADDRESS BASE 

BIT #MCPE ,SBDDAT 71S 'MCPE' SET ? 

BEQ 67$ :BR IF NOT 

EMT 11 

ae MTRE,RMCS1(RO> [CLEAR 'MCPE' 

TST CKERR sWAS RMDS NON ZERO ? 

BEQ +6 ;CONTENTS OF RMDS SEEN BY PORT B 

JMP i$ sDRIVE IN NEUTRAL, BYPASS REST OF TEST 


sRELEASE THE DRIVE FROM PORT A 


: VERIFY 


68$: 


69$: 


MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV W13,RMCS1(RO)  ;ISSUE RELEASE THROUGH PORT A 


THAT DRIVE IS SEIZED BY PORT B WHEN RELEASED BY PORT A 


CLR RELERR ;CLEAR “RELEASE ERROR' INDICATOR 
MOV #ATA!MOL !PGM!DPRiDRY'WV, $GDDAT TE tel CONSTANT 
MOV WRMDS,SBDADR ;REGISTER ADDRESS INCREMENT 

0, SBDADR REGISTER oa ADDRESS FOR TYPEOUT 
MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV RMDS(RO), sTHrd READ STATUS oe FROM PORT B 
MOVB PORTA, RMCS2(RO) ;SELECT PORT A 
MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO yoy FOR TYPEOUT 
MOV RMDS(RO),SBDDAT ;DRIVE STATUS FROM PORT 


> 
=] 
=) 
» 


BEQ 68$ ;BR IF STATUS FROM PORT A * ERO 
TST $TMPO :1$ STATUS FROM PORT B ZERO ? 
BEQ 68$ :BR IF ZERO 


31 
MOV STMPO,SBDDAT CHECK STATUS FROM PORT B 
MOV PORTB,PTNBR :CHANGE PORT ADDRESS FOR TYPEOUT 
CMP SGDDAT,$BDDAT ;COMPARE WITH CONSTANT 


BEQ 69% ;BR IF OK 
EMT 27 
NOP 


sRELEASE THE DRIVE FROM PORT B 


MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV WI3Z,RMCSI(RO)  ;1SSUE RELEASE THROUGH PORT B 


SEQ 0065 
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111 PORT *B' RELEASE INTERFERENCE TEST SEQ 0066 
;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 

015434 005037 001254 CLR RELERR ‘CLEAR THE "RELEASE ERROR ' INDICATOR 
015440 012737 000012 001122 MOV #RMDS,SBDADR =; FORM THE ADDRESS OF RMDS FOR TYPEOUT 
015446 060037 001122 ADD RO, SBDADR :ADD THE 1/0 BASE ADDRESS 
015452 016737 011700 001124 MOV #MOL'PGRIDPRIDRYI VV. SGDDAT ;COMPARISON CONSTANT 
015460 113760 001224 000010 MOVB = PORTA, RMCS2(RO) iSELECT PORT A 
015466 016037 000012 001170 MOV RMDS(RO),STMP2 GET THE DRIVE “STATUS REGISTER FROM PORT A. 
015474 042737 024001 001170 BIC #PIP!WRL'OM,STMP2 ;CLEAR DONT CARES 
015502 013737 001170 001164 MOV STMP2, STMPO ;COPY IT INTO 'STMP 
015510 042737 100100 001164 BIC WATA'VV,STMPO =: CLEAR PORT DEPENDENT BITS FROM THE COPY 
015516 113760 001226 000010 MOVB PORTB,RMCS2(RO) :SELECT PORT B. 
015524 016037 000012 001172 MOV PMDS(RO),STMP3 :GET THE DRIVE STATUS REGISTER FROM PORT 8. 
015532 042737 024001 001172 BIC WP LP IWRL OM, STMP ;CLEAR DONT CARES 
015540 013737 001172 001166 MOV STMP3,STMP1 :COPY IT INTO '$TMP1" 
015546 042737 100100 001166 BIC PATAIWV.STMPI :CLEAR PORT DEPENDENT BITS FROM THE COPY 
015554 023737 001164 001166 CMP $TMPO,STMP1 :1$ THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
015562 001006 BNE 70$ IF NOT 
015564 005737 001164 TST $TMPO ZREGISTERS ARE THE SAME: ARE THEY ZERO ? 
015570 001045 BNE 72$ :BR IF NOT 
015572 104046 EMT 46 
015574 000137 015774 JMP 74$ ;BYPASS THE REST OF 1HE CHECKS 
015600 013737 001170 001126 708: Mov STMP2,$BDDAT | ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
015606 013737 001226 001240 MOV PORTB.PTNBR ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
015614 113760 001226 000010 MOVB —PORTB,RMCS2(RO) ;SELECT PORT 8. 
015622 005737 001164 TST $TMPO ;SEE IF STATUS EQ 0 FROM PORT A. 
015626 001414 BEQ 71$ :BR IF ZERO 
015630 013737 001224 001246 MOV PORTA, PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
015636 013737 001172 001126 MOV STMP3,$BDDAT "BAD DATA’ FOR ERROR TYPE OUT 
015644 113760 001224 000010 MOVB = PORTA.RMCS2(RO) :SELECT PORT A. 
015652 005737 001166 TST STMP1 :SEE IF STATUS EQ ZERO FROM PORT B. 
015656 001012 BNE 72$ :BR IF NOT 
015660 012737 177777 001254 71%: Mov #-1,RELERR :SET "RELEASE ERROR' INDICATOR 
015666 012760 000011 000000 MOV WIT,RMCS1(RO) CLEAR THE DRIVE 
015674 012760 000013 000000 MOV #13,RMCS1(RO) [RELEASE THE DRIVE 
015702 104026 EMT 26 
015704 013737 001170 001126 72$: Mov STMP2,$BDDAT §; LOOK FOR BIT FAILURES WHEN RMDS READ 
015712 013737 001224 001240 MOV PORTA,PTNBR ;CHANGE PORT NUMBER 
015720 042737 100000 001126 BIC #ATA, SBDDAT :DON'T CHECK THE ATTN BIT 
015726 023737 001124 001126 CMP $GDDAT,$BDDAT  :ALL BITS OK 
015734 001401 BEQ 73$ :BR IF OK FROM PORT A. 
015736 104007 EMT 7 
015740 013737 001172 001126 73%: Mov $IMP3,$BDDAT CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
015746 013737 001226 001240 MOV PORTB,PTNBR ;CHANGE PORT NUMBER 
015754 042737 100000 001126 BIC WATA, SBDDAT :DON'T CHECK THE ATTN BIT 
015762 023737 001124 001126 CMP $GDDAT,$BDDAT :SEE IF READ OK FROM PORT B. 
015770 001401 BEQ 74$ :BR IF OK 
015772 104007 EMT ? 
0157746 000240 74$: NOP 
015776 000004 1$: SCOPE LOOP ? 

290 
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#TEST 12 PORT 'A' RELEASE W/ERRORS TEST 


:*VERIFY THAT A RELEASE COMMAND agate NO ACTION IF ISSUED WHEN ERROR 
: BITS ARE SET IN THE DRIVE 


CZRMRAO RMOS/3/2 DU POR TST 1 MACRO VO3.01 11-APR=80 14:26:10 pace *.. =30 
Tl2 PORT "A' RELEASE W/ERRORS TEST SEQ 0067 

:* A, SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0°S INTO RMDS. 
:* B. WRITE 1°S INTO RMER1 THROUGH PORT ‘A’. 
te C, Issue A RELEASE COMMAND THROUGH PORT ‘A’. VERIFY THAT THE 'GO" 
ie BIT HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, AND 
8 THAT RMER1 HAS NOT BEEN CLEARED. 
:* D. CLEAR RMER1 BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT ‘A’. 
‘@ 
:* E. ISSUE A RELEASE COMMAND THROUGH PORT ‘A’. VERIFY THAT THe DRIVE 
ie RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 
ps PES 7 SE ce ey A SN EIEN 

016000 tST12: 

016000 005737 001300 TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 

016004 001406 BEQ 2$ ‘BR IF NOT 

016006 100002 BPL 1$ :BR IF JUST ENTERED TEST 

016010 000137 003110 JMP EXEC [RETURN & GET NEXT TEST NUMBER 

016014 012737 177777 001200 18: MOV #-1, KYBCTL TSET SINGLE TEST INDICATOR 

016022 012737 016036 001106 2s: MOV WTEST12,$LPADR :SETUP SCOPE LOOP ADDRESS 

016030 012737 016036 001110 ams MOV #TESTI2,$LPERR :SETUP ERROR LOOP ADDRESS 

016036 112737 000012 001102 “ MOVB = #12, $TSTNM :MOVE #12 TO TEST NUMBER 

016044 012706 001100 MOV #STACK, SP [LOAD THE STACK POINTER 

a 016050 012737 000031 001176 MOV #25. $TIMES >:D0 25. ITERATIONS 
520 

;CLEAR ATTENTION BITS FOR BOTH PORTS 

016056 113760 001224 000010 MOVB = PORTA, RMCS2(RO) SELECT PORT #A 

016064 005060 000012 CLR RMDS (RO) ‘SEIZE THE DRIVE 

016070 012760 000011 000000 MOV #11,RMCS1(RO) = ISSUE DRIVE CLEAR 

016076 012760 000013 000000 MOV #13.RMCS1(RO)  :RELEASE THE DRIVE 

016104 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT #B 

016112 005060 000012 CLR RMDS (RO) [SEIZE THE DRIVE THROUGH PORT ‘B' 

016116 012760 000011 000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 

016124 012760 000013 000000 MOV #13,RMCS1(RO) [RELEASE THE DRIVE 
7SEIZE THE DRIVE THROUGH PORT A 

016132 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT A 

016140 013737 001224 001242 MOV PORTA,SEIZPT ;STORE SEIZING PORT'S ADDRESS 

016146 005060 000012 CLR RMDS (RO) sWRITE RMDS 

016152 013737 001226 001244 MOV PORTB,OPPRT :"OPPOSITE’ PORT ADDRESS 
FORCE AN ERROR 

016160 012760 177777 000014 MOV #-1,RMER1(RO) ;SET ERROR BITS 

016166 012760 000013 000000 MOV #13, RMCS1(RO) :1SSuE A RELEASE COMMAND 

016174 005037 001250 CLR CKERR SCLEAR THE ‘CHECK ERROR? INDICATOR 

016200 016037 000000 001126 MOV RMCS1(RO),SBDDAT ;GET CONTENTS OF RMCS1 

016206 012737 000000 001122 MOV RHC SBOADR ;:FORM REGISTER ADDRES OF ERROR MESSAGE 

016214 060037 001122 ADD ADR ;ADD RH/RM BASE ADDRESS 

016220 012737 004012 001124 MOV pubis SeoDAT :WHAT REGISTER SHOULD BE 

016226 013737 001126 00116 MOV SBDDAT,$TMPO ° ;MOVE REGISTER CONTENTS TO '$TMPO' 


CZRMRAO RMOS/ 3/2 DU POR TST 1 MACRO V03.01 11-APR-80 14:26:10 pace Z -31 
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016234 042737 173765 001164 BIC #°C6012,$TMPO ;SAVE SPECIFIED g1TS 
016262 023737 001124 001164 CMP SGDDAT,$TMPO  ":COMPARE THE BITS 
016250 001414 BEQ 66$ ‘BR IF OK 
016252 013737 001126 001174 MOV SBDDAT STMP4 ‘COPY "BAD DATA’ 
016260 042737 004012 001174 BIC 2,$TMP :CLEAR THE MASKED BITS 
016266 053737 001174 001124 BIS Sinea *SGDDAT :"OR’ WITH GOOD DATA FOR TYPEOUT 
016274 104025 EMT s 
016276 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
016302 000240 66$: NOP 
016304 005737 001250 TST CKERR :DID "GO" BIT RESET ? 
016310 00100 BNE +6 ‘BR IF NOT 
016312 000137 016352 JMP is :'GO' BIT RESET 
016316 012760 000040 000010 MOV #CLR,RMCS2(RO) :INIT THE RH/RM 
016324 113760 001224 000010 MOVB = PORTA,RMCS2(RO) °:SELECT PORT A 
016332 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
016340 012760 000013 000000 MOV #13,RMCS1(RO) ;RELEASE THE DRIVE THROUGH PORT A 
016346 000137 017116 JMP 2$ :BYPASS THE REST OF THE TEST 
;VERIFY THAT DRIVE IS STILL SEIZED BY PORT A 
016352 1$: 
016352 113760 001226 000010 MOVB  =PORTB,RMCS2(RO) ;SELECT PORT B 
016360 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
016366 005037 001250 CLR CKERR s;CLEAR THE ‘CHECK ERROR’ INDICATOR 
016372 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
016400 012737 000012 001122 MOV wRMDS, SBDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
016406 060037 001122 ADD RO,$ ;ADD RH/RM BASE ADDRESS 
016412 005037 001124 CLR SGODAT ‘WHAT REGISTER SHOULD BE 
016416 023737 001124 001126 CMP SGDDAT,$BDDAT :1S THE gREGISTER OK ? 
016424 001403 BEQ 68$ BR IF 
016426 104024 EMT 24 
016430 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
016434 000240 68$: NOP 
016436 113760 001224 000010 MOVB = PORTA,RMCS2(RO) ;SELECT PORT A 
016444 013737 001224 001240 MOV PORTA,PTNBR MOVE oo" ADDRESS TO LOCATION FOR TYPEOUT 
016452 005037 001250 CLR CKERR sCLEAR THE “CHECK ERROR’ INDICATOR 
016456 016037 000014 001126 MOV RMER1(RO),$BDDAT ;GET CONTENTS OF RMER1 
016464 012737 000014 001122 MOV #RMER1,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
016472 060037 001122 ADD RO, $BDADR :ADD RH/RM BASE ADDRESS 
016476 012737 177777 001124 MOV #177777, $GDDAT :WHAT REGISTER SHOULD BE 
016504 023737 001124 001126 CMP SGDDAT,$BDDAT :1S THE REGISTER OK ? 
016512 001403 BEQ 70$ ‘BR IF OK 
016514 104010 EMT 10 
016516 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
016522 000240 70$: NOP 
;CLEAR THE ERRORS THROUGH PORT A 
016524 012760 000011 000000 MOV #11,RMCSI(RO)  ;ISSUE A DRIVE CLEAR 
:RELEASE THE DRIVE FROM PORT A 
016532 113760 001224 000010 MOVB  PORTA,RMCS2(RO) ;SELECT PORT A - 
016540 013737 001224 001240 MOV PORTA,PTNBR = MOVE PORT ADDRESS 10 LOCATION FOR TYPEOUT 
016546 012760 000013 000000 MOV #13,RMCSI1(RO) ;]SSUE RELEASE THROUGH PORT A 


VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
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016554 005037 001254 (LR RELERR ;CLEAR THE "RELEASE ERROR ' INDICATOR 
016560 012737 000012 001122 MOV #RMDS,SBDADR | § :FORM THE ADDRESS OF RMDS FOR TYPEOUT 
016566 060037 001122 ADD RO, SBDADR [ADD THE 1/0 BASE ADDRESS 
016572 012737 011700 001124 MOV WMOL!PGM'DPR!DRY'VV,S$GDDAT ;COMPARISON CONSTANT 
016600 113760 001224 000010 MOVB  PORTA,RMCS2(RO) ;SELECT PORT 
016606 016037 000012 001170 MOV RMDS(RO),STMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
016614 042737 024001 001170 BIC #PIP!WRL'OM,STMP2 :CLEAR DONT CARES 
016622 013737 001170 001164 MOV $TMP2,STMPO ;COPY IT INTO 'S$TMPO' 
016630 042737 100100 001164 BIC HATA'VV,STMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
016636 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
016644 016037 000012 001172 MOV RMDS(RO),STMP3 GET THE DRIVE STATUS REGISTER FROM PORT B. 
016652 042737 024001 001172 BIC #PIP'WRL'OM,STMPS ;CLEAR DONT CARES 
016660 013737 001172 001166 MOV STMP3,STMP1 :COPY IT INTO 'STMP1 
016666 042737 100100 001166 BIC WATA'VV,$TMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
016674 023737 001164 001166 CMP $TMPO,STMP1 [1 THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
016702 001006 BNE 72$ :BR IF NOT 
016704 005737 001164 TST $TMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
016710 001045 BNE 74$ :BR IF NOT 
016712 104046 EMT 46 
016714 000137 017114 JMP 76$ :BYPASS THE REST OF THE CHECKS 
016720 013737 001170 001126 728: Mov $TMP2,$BDDAT | :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
016726 013737 001226 001240 MOV PORTB,PTNBR SEIZING port IF TEST SHOWS DRIVE NOT IN NEUTRAL 
016734 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT B. 
016742 005737 001164 ToT $TMPO SEE IF STATUS EQ 0 FROM PORT A. 
016746 001414 BEQ 73$ :BR IF ZERO 
016750 013737 001224 001240 MOV PORTA.PINBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN REUTRAL 
016756 013737 001172 001126 MOV $TMP3.$BDD :"BAD DATA" FOR ERROR TYPE OUT 
016764 113760 001224 000010 MOVB «PORTA. AACS 2 (RO) ;SELECT PORT 
016772 005737 001166 TST $TMP1 SEE IF STATUS "EQ ZERO FROM PORT B. 
016776 001012 BNE 74$ 'BR IF NOT 
017000 012737 177777 001254 73%: MOV #-1,RELERR :SET "RELEASE ERROR’ IND.CATOR 
017006 012760 000011 000000 MOV #11,RMCS1(RO) CLEAR THE DRIVE 
017014 012760 000013 000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
017022 104026 EMT 26 
017024 013737 001170 001126 74%: MoV $TMP2,$BDDAT  ; LOOK FOR BIT FAILURES WHEN RMDS READ 
017032 013737 001224 001240 MOV PORTA,PTNBR CHANGE PORT NUMBER 
017040 042737 100000 001126 BIC HATA, SBDDAT :DON'T CHECK THE ATIN BI? 
017046 023737 001124 001126 CMP $GDDAT,$BDDAT ALL BITS OK ? 
017054 001401 BEQ 75$ :BR IF OK FROM PORT A. 
017056 104007 EMT ? 
017060 013737 001172 001126 75%: Mov STMP3,$BDDAT CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
017066 013737 001226 001240 MOV PORTB,PTNBR CHANGE PORT NUMBER 
017074 042737 100000 001126 BIC #ATA, SBDDAT [DON'T CHECK THE ATIN BIT 
017102 023737 001124 001126 CMP $GDDAT,SBDDAT SEE IF READ OK FROM PORT B. 
017110 001401 BEQ 76$ :BR IF OK 
017112 104007 EMT ? 
017114 000240 76$: NOP 

sa 017116 000004 2$: SCOPE LOOP ? 

547 

546 Ce ee 

PaTEST 13 PORT 'B' RELEASE W/ERRORS TEST 


 AVERIFY He A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 
ie BITS ARE SET IN THE DRIVE. 
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A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING O'S INTO RMDS. 

B. WRITE 1°S INTO RMER1 THROUGH PORT 'B’. 

C. ISSUE A RELEASE COMMAND THROUGH PORT 'B'. VERIFY THAT THE 'GO' 
BIT HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, AND 
THAT RMER1 HAS NOT BEEN CLEARED. 

D. CLEAR RMER1 BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT 'B'. 


E. ISSUE A RELEASE COMMAND THROUGH PORT 'B'. VERIFY THAT iy DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 


hhh heh PPR PPP RRR RR RRS ESSERE SEES OCSOSSSOSS © 


uwe- = = ee eeeeeeeee 


Se ee ee ee ee ee ee ee ee ee 


017120 113: 
017120 005737 001300 TST KYBCTL PERFORMING ONLY SINGLE TEST ? 
017124 001406 BEQ 2$ :BR IF NOT 
017126 100002 BPL 1$ :BR_IF JUST ENTERED TEST 
017130 000137 003110 JMP EXEC ;RETURN & GET NEXT TEST NUMBER 
017134 012737 177777 001300 1$: MOV #-1,KYBCTL SET SINGLE TEST INDICATOR 
017142 012737 017156 001106 2$: MOV MTESTI3,$LPADR ;SETUP SCOPE LOOP ADDRESS 
Bi pice 012737 017156 001110 sestt8 MOV MTESTI3,$LPERR ;SETUP ERROR LOOP ADDRESS 
017156 112737 000013 001102 MOVB #13, STSTNM sMOVE #13 TO TEST NUMBER 
017164 012706 001100 MOV MSTACK,SP ;LOAD THE STACK POINTER 
549 017170 012737 000031 001176 MOV #25. STIMES 3:D0 25. ITERATIONS 
550 
CLEAR ATTENTION BITS FOR BOTH PORTS 
017176 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT #A 
017204 005060 000012 CLR RMDS (RO) sSEIZE THE DRIVE 
017210 012760 000011 000000 MOV W11,RMCS1(RO) ;ISSUE DRIVE CLEAR 
017216 012760 000013 000000 MOV W13,RMCS1(RO) ;RELEASE THE DRIVE 
017224 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT #B 
017232 005060 000012 CLR RMDS (RO) sSEIZE THE DRIVE THROUGH PORT ‘B’ 
017236 012760 000011 000000 MOV W11,RMCSI(RO) ;1SSUE DRIVE CLEAR 
017244 012760 000013 000000 MOV M13,RMCSI(RO) ;RELEASE THE DRIVE 
;SEIZE THE DRIVE THROUGH PORT B 
017252 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
017260 013737 001226 001242 MOV PORTB,SEIZPT ;STORE SEIZING PORT'S ADDRESS 
017266 005060 000012 CLR RMDS(RO) WRITE RMDS 
017272 013737 001224 001244 MOV PORTA,OPPRT ; OPPOSITE’ PORT ADDRESS 
FORCE AN ERROR 
017300 012760 177777 000014 MOV #-1,RMER1(RO) :SET ERROR BITS 
017306 012760 000013 000000 MOV #13, SACS E CO they A RELEASE COMMAND 
017314 005037 001250 CLR CKERR :CLEAR THE "CHECK ERROR’ INDICATOR 
017320 016037 000000 001126 MOV RMCS1(RO),SBDDAT ;GET CONTENTS OF RMCS1 
017326 012737 000000 001122 MOV yg AE $BDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
017334 060037 001122 ADD DAD ADD RH/RM BASE ADDRESS 
017340 012737 004012 001124 MOV Wie $GDDAT ;WHAT REGISTER SHOULD BE 
017346 013737 001126 001164 MOV SBDDAT ,STMPO ;MOVE REGISTER CONTENTS 10 "STMPO* 
017354 042737 173765 001164 BIC #°C4012,$TMPO ;SAVE SPECIFIED BITS 
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017362 023737 001124 001164 CMP SGDDAT, $TMPO ; COMPARE THE BITS 
017370 001414 BEQ 66$ ‘BR IF OK 
017372 013737 001126 001174 MOV SBDDAT, STMP4 copy "BAD DATA' 
017400 042737 004012 601174 BIC #4012, $TMP4 :CLEAR THE MASKED BITS 
017406 053737 001174 001124 BIS STMPG.S$GDDAT :"OR' WITH GOOD DATA FOR TYPEOUT 
017414 104025 EMT 25 
017416 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERRUR INDICATOR 
017422 000240 66$: NOP 
017424 005737 001250 TST CKERR :D1D 760° BIT RESET ? 
017430 001002 BNE +6 NOT 
017432 000137 017472 JMP is G0" eit RESET 
017436 012760 000040 000010 MOV #CLR,RMCS2(RO) “INIT THE RH/RM 
017444 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
017452 013737 001226 001240 MOV PORTB,PTNBR = MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
017460 012760 000013 000000 MOV #13,RMCS1(RO) ;RELEASE THE DRIVE THROUGH PORT B 
017466 000137 020236 JMP 2$ :BYPASS THE REST OF THE TEST 
;VERIFY THAT DRIVE iS STILL SEIZED BY PORT B 
017472 1$: 
017472 113760 001224 000010 MOVB  PORTA,RMCS2(RO) ;SELECT PORT A 
017500 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
017506 005037 001250 CLR CKERR sCLEAR THE ‘CHECK ERROR' INDICATOR 
017512 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
017520 012737 000012 001122 MOV #RMDS,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
017526 060037 001122 ADD RO, $BDADR ADD RH/RM BASE ADDRESS 
017532 005037 001124 CLR $GDDAT ‘WHAT REGISTER SHOULD BE 
017536 023737 001124 001126 CMP $GDDAT,$BDDAT 31S THE REGISTER OK ? 
017544 001403 BEQ 68$ :BR IF OK 
017546 104024 EMT 24 
017550 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
017554 000240 68$: NOP 
017556 113760 001226 000010 MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
017564 013737 001226 001240 MOV ati & PTNBR ;MOVE +H ADDRESS TO LOCATION FOR TYPEOUT 
017572 005037 001250 CLR CKERR :CLEAR THE "CHECK ERROR’ INDICATOR 
017576 016037 000014 001126 MOV RMER1(RO), SBDDAT ;GET CONTENTS OF RMER1 
017604 012737 000014 001122 MOV yg it SBDADR = FORM REGISTER ADDRESS OF ERROR MESSAGE 
017612 060037 001122 ADD BDADR :ADD RH/RM BASE ADDRESS 
017616 012737 177777 001124 MOV FTP oP RGDDAT ;WHAT REGISTER SHOULD BE 
017624 023737 001124 001126 CMP SGDDAT,$BDDAT :1S THE REGISTER OK ? 
017632 001403 BEQ 70$ :BR IF OK 
017634 104010 EMT 10 
017636 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
017642 000240 70$: NOP 
;CLEAR THE ERRORS THROUGH PORT B 
017644 012760 000011 000000 MOV #11,RMCS1(RO) ISSUE A DRIVE CLEAR 
sRELEASE THE DRIVE FROM PORT B 
017652 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
017660 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
017666 012760 000013 009000 MOV #13,RMCSI(RO) ISSUE RELEASE THROUGH PORT B 


VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


CZ7RMRAQ RMOS/3/2 DU POR TST 1 MACRO V03.01 11-APR-80 14:26:10 PAGE 8° 35 
113 PORT "B' RELEASE W/ERRORS TEST SEQ 0072 
017674 005037 001254 CLR RELERR sCLEAR THE "RELEASE ERROR * INDICATOR 
017700 012737 000012 001122 MOV #RMDS ,SBDADR i FORM THE ADDRESS OF RMDS FOR TYPEOUT 
017706 060037 001122 ADD RO, SBDADR THE 1/0 BASE ADDRESS 
Q017712 012737 011700 001124 MOV #MOL 'PGMDPR'DRYI WV, itt pon Yelena CONSTANT 
017720 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT P 
017726 016037 000012 001170 MOV RMDS(RO),$STMP2 GET THE DRIVE “STATUS ~ + atlas FROM PORT A. 
017734 042737 024001 001170 BIC #PIP!WRL!OM,STM AR DONT CARES 
017742 013737 001170 001164 MOV STMP2, 0 COPY IT INTO ' 
017750 042737 100100 001164 BIC WATA'VV,STMPO =: CLEAR PORT Ss iene BITS FROM THE COPY 
017756 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 
017764 016037 000012 001172 MOV RMDS(RO),S$TMP3 -GET THE Bayh Aad REGISTER FROM PORT B. 
017772 042737 024001 001172 BIC #PIP!WRL'OM,STMPS ;CLEAR DONT CARES 
020000 013737 001172 001166 MOV STMP3,STMP1 ;COPY IT INTO ‘$TMP1 
20006 042737 100100 001166 BIC WATA‘VV,STMP1  =;CLEAR PORT DEPENDENT BITS FROM THE COPY 
020014 023737 001164 001166 CMP STMPO,STMP1 s1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
020022 001006 BNE 72% BR IF NOT 
020024 005737 001164 TST STMPO sREGISTERS ARE THE SAME: ARE THEY ZERO ? 
920030 001045 BNE 74% BR IF NOT 
020032 104046 EMT 46 
020034 000137 020234 JMP 76% :BYPASS THE REST OF THE CHECKS 
020040 013737 001170 001126 72$: MOV STMP2, $BDDAT ;SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
020046 013737 001226 001240 MOV PORTB,PTNBR s SEIZING a IF TES) SHOWS DRIVE NOT IN NEUTRAL 
020054 113760 001226 000010 MOVB PORTB,RMCS2(RO) SELECT PORT B. 
020062 005737 001164 TST STMPO SEE IF STATUS EQ 0 FROM PORT A. 
020066 001414 BEQ 73$ BR IF ZERO 
020070 013737 001224 001240 MOV PORTA,PTNBR sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
020076 013737 001172 001126 MOV STMP3,$BDDAT "BAD DATA’ 7 ERROR TYPE OUT 
020104 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT 
020112 005737 001166 TST STMP1 SEE IF STATUS” EQ ZERO FROM PORT B. 
020116 001012 BNE 74% :BR IF NOT 
020120 012737 177777 001254 73$: MOV #-1,RELERR SET "RELEASE ERROR® INDICATOR 
020126 012760 000011 000000 MOV W11,RMCS1(RO)  ;CLEAR THE DRIVE 
020134 012760 000013 000000 MOV #13,RMCS1(RO)  ;RELEASE THE DRIVE 
020142 104026 EMT 26 
020144 013737 001170 001126 74$: MOV STMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
020152 013737 001224 001240 MOV PORTA,PTNBR eet PORT NUMBER 
020160 042737 100000 001126 BIC MATA, SBDDAT :DON'T CHECK THE ATTN BIT 
020166 023737 001124 001126 CMP $GDDAT, $BDDAT iy BITS OK ? 
020174 001401 BEQ 75$ R IF OK FROM PORT A. 
020176 104007 EMT 7 
020200 013737 001172 001126 75$: MOV $TMP3,$BDDAT CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
020206 013737 001226 001240 MOV PORTB,PTNBR sCHANGE PORT NUMBER 
020214 042737 100000 001126 BIC #ATA,SBDDAT :DON’T CHECK THE ATIN BIT 
020222 023737 001124 001126 CMP $GDDAT,SBDDAT :SEE IF READ OK FROM PORT B. 
020230 001401 BEQ 76$ :BR IF OK 
020232 104007 EMT ? 
020234 000240 76$: NOP 
$51 020236 000004 2$: SCOPE ;LOOP ? 
©70 
571 4 P.O PP PPP PPP PP PPP PRR REESE EESOSOSEOSS 
#TEST 14 PORT ‘A’ SEIZE AND CLEAR TEST 
eVERIFY THAT A MASSBUS CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 
ie PORT TO RELEASE THE DRIVE. 


:* A. SEIZE THE DRIVE BY WRITING O'S INTO RMDS THROUGH PORT ‘A‘, 


I 
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:* VERIFY THAT THE DRIVE HAS BEEN SEIZED. 
° 2 
:* B. ISSUE A DRIVE CLEAR THROUGH PORT 'A* AND VERIFY THAT THE DRIVE 
:* DOES NOT RETURN TO NEUTRA 
;* (. ISSUE A MASSBUS CLEAR THROUGH THE RH/RM AND VERIFY THAT THE DRIVE 
i* DOES NOT RETURN TO NEUTRAL. 
** 
;* D. RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE DRIVE 
i* RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 
ph GL OS LE MA ELAN EK, 
020240 15114 
020240 005737 001300 1ST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
020244 001406 BEQ 2$ BR IF NOT 
020246 100002 BPL 1$ :BR IF JUST ENTERED TEST 
020250 000137 003110 JMP EXEC ;RETURN & GET NEXT TEST NUMBER 
020254 012737 177777 001300 1$: MoV #-1, KYBCTL :SET SINGLE TEST INDICATOR 
020262 012737 020276 001106 2s: MOV WTESTIG,$LPADR SETUP SCOPE LOOP ADDRESS 
920270 012737 020276 001110 restie: OY MTESTIG,$LPERR :SETUP ERROR LOOP ADDRESS 
020276 112737 000014 001102 MOVB = #14, STSTNM ;MOVE #14 TO TEST NUMBER 
020304 012706 001100 Mov WSTACK,SP :LOAD THE STACK POINTER 
572 020310 012737 000051 001176 Mov #25. STIMES :;D0 25. ITERATIONS 
602 
;SEIZE THE DRIVE THROUGH PORT A 
020316 113760 001224 000010 MOVB = PORTA, RMCS2(RO) ;SELECT PORT A 
020324 013737 001224 001242 MOV PORTA, SEIZPT i STORE SEIZING PORT'S ADDRESS 
020332 005060 000012 CLR RMDS (RO) ;WRITE RMDS 
020336 113760 001226 000010 MOVB  PORTB,RMCS2(RO) ';SELECT PORT B 
020344 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
020352 013737 001226 001244 MOV PORTB,OPPRT ;"OPPOSITE' PORT ADDRESS 
020360 016037 000012 001126 MOV RMDS (RO), ,SBDDAT iSEE IF DRIVE SEIZED BY PORT A 
020366 010037 001122 MOV RO, $BDA RH/RM BASE ADDRESS 
020372 062737 000012 001122 ADD #RMDS, SBDADR : GENERATE BAD REGISTER ADDRESS 
020400 005037 001124 CLR $GDDAT REGISTER SHOULD BE ZERO 
020404 023737 001124 001126 CMP SGDDAT,S$BDDAT 31S THE REGISTER ZERO 
020412 001403 BEQ 64$ :BR IF IT 1S 
020414 104004 EMT 4 
020416 000137 021636 ca JMP 1$ ;BYPASS REST OF THE SUBTEST 
020422 113760 001224 000010 MOVB  PORTA,RMCS2(RO) ;SELECT PORT A 
020430 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
020436 016037 000012 001126 MOV RMDS (RO) SBDDAT {SEE IF SEIZING PORT SEES CORRECT STATUS 
020444 042737 020001 001126 BIC #OM!PIP, $BDD :CLEAR DONT CARE BITS 
020452 012737 011700 001124 MOV #MOL'PGA'DPR*DRY! VV, SGDDAT SEXPECTED STATUS 
020460 013737 001124 001166 Mov SGDDAT,SIMP1 ; USE GOOD DATA’AS A MASK 
020466 005137 001166 COM $TMP1 :COMPLEMENT THE EXPECTED STATUS 
020472 013737 001126 001164 Mov SBDDAT,STMPO = :SAVE THE ACTUAL STATUS 
020500 043737 001166 001164 BIC $TMP1,STMPO CLEAR UNWANTED BITS. 
020506 023737 001124 001164 CMP SGDDAT,STMPO = SARE _THE EXPECTED STATUS BITS SET ? 
020514 001401 BEQ 65$ :BR IF THEY ARE 
020516 104005 EMT 5 
020526 000240 65$: NOP 
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SEIZE AND CLEAR TEST 


000000 


001174 
001174 
001124 


sDRiVE CLEAR THROUGH PORT A FIRST 
MOV M11,RMCS1(RO) [ISSUE DRIVE CLEAR THROUGH PORT A 
sVERIFY THAT DRIVE STILL SEIZED BY PORT A 


MOVB PORTP,RMCS2(RO) ;SELECT PORT B 

MOV PORTB,PTNBR ;MOVE +4 ADDRESS TO LOCATION FOR TYPEOUT 
CLR CKERR CLEAR THE ‘CHECK — INDICATOR 

MOV RMDS(RO),SBDDAT ;GET CONTENTS OF RMDS 

MOV WRMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 


ADD RO, SBDADR ;ADD_RH/RM BASE ADDRESS 

CLR $GDDAT s;WHAT REGISTER SHOULD BE 

MOV SBDDAT ,STMPO :MOVE REGISTER CONTENTS TO 'STMPO* 
BIC #°C77777,$TMPO fe SPECIFIED BITS 

Soe a ,STMPO +3 pty 8 THE BITS 


66 :BR 
MOV SBDDAT,STMP4 COPY ‘BAD DATA’ 
BIC #77777, ,STMP4 :CLEAR THE MASKED BITS 
BIS | latte :'OR' WITH GOOD DATA FOR TYPEOUT 


“as on CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CLR CKERR CLEAR THE ‘CHECK eae INDICATOR 
MOV RMDS(RO),$BDDAT ;GET CONTENTS OF R 
MOV #RMDS,SBDADR ; FORM gy Mes ADDRESS OF ERROR MESSAGE 
ADD RO, SBOADR ;ADD_RH/RM BASE ADDRESS 
MOV #MOL!PGM'DPR!DRY ‘VV, SGDDAT ; WHAT REGISTER SHOULD BE 
MOV SBDDAT,$TMPO :MOVE REGISTER CONTENTS TO *STMPO' 
BIC #°C77777,$TMPO SAVE SPECIFIED BITS 

CMP anes »STMPO o_o THE BITS 


OK 
MOV SBODAT ,STMP4 COPY. "BAD DATA’ 
BIC #77777, STMP4 :CLEAR THE MASKED BITS 
BIS STMP4,$GDDAT OR’ WITH GOOD DATA FOR TYPEOUT 


3 
COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
68$: NOP 


:NOW ISSUE MASSBUS INIT 
MOV MCLR,RMCS2(RO) ;ISSUE MASSBUS INIT 
;CONFIRM THAT DRIVE STILL SEIZED BY PORT A 
MOVB arth | RMCS2(RO) ;SELECT PORT B 
MOV PORTB,PTNBR ;MOVE ary ADDRESS TO LOCATION FOR TYPEOUT 
CLR CKERR ;CLEAR THE "CHECK ERROR’ INDICATOR 


MOV RMDS(RO),SBDDAT ";GET CONTENTS OF RMDS 
MOV WRMDS ,SBOADR ; FORM g byt yg te ERROR MESSAGE 


ADD RO, SBDADR ;ADD_RH/RM BASE A 

CLR $GDDAT ; WHAT REGISTER SHOULD BE 

MOV SBDDAT ,STMPO :MOVE REGISTER CONTENTS TO ‘STMPO" 
BIC #°C77777,$TMPO SAVE SPECIFIED BITS 

CMP $GDDAT, STMPO ;COMPARE THE BITS 


SEQ 0074 
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CZRMRAO RMOS/3/2 DU P 
T14 PORT ‘A’ SEIZE AND CLEAR TEST SEQ 0075 

021072 001414 BEQ 70$ :BR IF OK 
021074 013737 001126 001174 MOV SBDDAT,STMP4 ;COPY ‘BAD DATA’ 
021102 042737 077777 001174 BIC #77777,$1MP4 § :CLEAR THE MASKED BITS 
021110 053737 001174 001124 BIS STMP4, $GDDAT :"OR' WITH GOOD DATA FOR TYPEOUT 
021116 104034 EMT 34 
021120 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
021124 000240 70$: NOP 
021126 113760 001224 000010 MOVB  PORTA,RMCS2(RO) ;SELECT PORT A 
021134 013737 001224 001240 MOV POR TA, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
021142 005037 001250 CLR CKERR sCLEAR THE "CHECK ERROR’ INDICATOR 
021146 016037 000012 001126 MOV RMDS(RO),SBDDAT ;GET CONTENTS OF RMDS 
021154 012737 000012 001122 MOV “ARMDS, SBDADR FORM REGISTER ADDRESS OF ERROR MESSAGE 
021162 060037 001122 ADD RO, $BDA DR ;ADD RH/RM BASE ADDRESS 
021166 012737 011700 001124 MOV MOL | PGH!DPR!DRY VV. SGDDAT ;WHAT REGISTER SHOULD BE 
021174 013737 001126 001164 MOV SBDDAT,STMPO | :MOVE REGISTER CONTENTS TO ‘STMPO' 
021202 042737 100000 001164 BIC #°C77777,$1MPO :SAVE SPECIFIED BITS 
021210 023737 001124 001164 CMP $GDDAT, $TMPO ; COMPARE THE BITS 
021216 001414 BEQ 72$ ‘BR IF OK 
021220 013737 001126 001174 MOV SBDDAT,STMP4 | :COPY ‘BAD DATA’ 
021226 042737 077777 001174 BIC #77777,$1MP4  :CLEAR THE MASKED BITS 
021234 053737 001174 001124 BIS STMP4 ,SGDDAT "OR" WITH GOOD DATA FOR TYPEOUT 
021242 104034 EMT 34 
021244 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
02125C 000240 72$: NOP 

s;RELEASE THE DRIVE FROM PORT A 
021252 113760 001224 000010 MOVB _—s— PORTA, RMCS2 (RO) :SELECT PORT A 
021260 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
021266 012760 000013 000000 MOV #13, RCS 1 CRO) : ISSUE RELEASE THROUGH PORT A 

sVERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
021274 005037 001254 CLR RELERR ;CLEAR THE ‘RELEASE ERROR ° INDICATOR 
021300 012737 000012 001122 MOV #RMDS,$BDADR 4 yg THE ADDRESS OF RMDS FOR TYPEOUT 
021306 060037 001122 ADD RO, $BDADR D THE 1/0 BASE ADDRESS 
021312 012737 11700 001124 MOV PMOL TPGR'DPRIDRYIVY. SGDDAT arene CONSTANT 
021320 113760 001224 000010 MOVB  PORTA,RMCS2(RO) :SELECT PORT 
021326 016037 000012 001170 MOV RMDS(RO), Nang *GET THE DRIVE "STATUS A eh FROM PORT A. 
021334 042737 024001 001170 BIC #PIP'WRL'OM,$ TMP ;CLEAR DONT CARES 
021342 013737 001170 001164 MOV STMP2,STMPO 3; COPY It’ INTO 0 '$TMPO' 
021350 042737 100100 001164 BIC #ATA'VV, STMPO *CLEAR PORT DEPENDENT BITS FROM THE COPY 
021356 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
021364 016037 000012 001172 MOV RMDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
021372 042737 024001 001172 BIC #PIP'WRL'OM,STMPS CLEAR DONT CARES 
021400 013737 001172 001166 MOV STMP3,STMP1 :COPY IT INTO ‘$TMP1° 
021406 042737 100100 001166 BIC HATA'VV,$TMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY 
021414 023737 001164 001166 CMP STMPO,STMP1 “IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
021422 001006 BNE 74$ ‘BR IF NOT 
021424 005737 001164 TST STMPO sREGISTERS ARE THE SAME: ARE THEY ZERO ? 
021430 001045 BNE 76$ ‘BR IF NOT 
021432 104046 EMT 46 
021434 000137 021634 JMP 78% ;BYPASS THE REST OF THE CHECKS 
021440 013737 001170 001126 74$: MOV STMP2,SBDDAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
021446 013737 001226 001240 MOV PORTB,PTNBR sSEIZING +t IF TEST SHOWS DRIVE NOT IN NEUTRAL 
021454 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT B. 
021462 005737 001164 TST $TMPO sSEE IF STATUS EQ 0 FROM PORT A, 
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R TST 1 


AND CLEAR TEST 


001126 
0 


001124 0011 


003110 

177777 001300 
021676 001106 
021676 001110 
000015 001102 
001100 

000031 001176 


75$: MOV 


76$: MOV 


77$: MOV 


78$: N 
1$: SCOPE 


AORTA AREER hee 


:#TEST 15 
:*VERIFY THAT A 


ne. spa eeerwerernereeneeee 
oO 


1$: 
23: MOV 
TEST15: 


75% 

PORTA, baneat 
STMP3,SBDDA 
PORTA, RNCS2(RO) 
STMP1 


76$ 
#~1,RELERR 
#11,RMCS1(RO) 
#13, RMCS1(RO) 


26 
STMP2,S$BDDAT 
PORTA,PTNBR 


WATA,SBDDAT 
SGDDAT , SBDDAT 
77% 


7 
STMP3,$BDDAT 


SGDDAT, SBDDAT 
78$ 
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;BR_IF NOT 


7 SET He i asf ~~ oa INDICATOR 


:CLEAR T 
sRELEASE 


;LOOK FOR BIT ~_ WHEN RMDS READ 


THE DRIVE 


>CHANGE PORT NUM 


;DON'T CHECK THE ATTN BIT 


sALL BITS OK 


:BR IF OK PROM PORT A. 
CHECK RMDS ‘aa a FAILURES = FROM PORT B. 


; CHANGE PORT 


;DON'T CHECK THE ATTN BIT 
: SEE es OK FROM PORT B. 
K 


;LOOP ? 


PORT 'B' SEIZE AND CLEAR TEST 


A MASSBUS CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 
PORT TO RELEASE THE DRIVE. 


A. SEIZE THE DRIVE BY WRITING 0'S INTO RMDS THROUGH PORT 'B’. 
VERIFY THAT THE DRIVE HAS BEEN SEIZED. 


ISSUE A_ DRIVE CLEAR THROUGH PORT 'B* AND VERIFY THAT THE DRIVE 
DOES NOT RETURN TO NEUTRAL. 


ISSUE A_MASSBUS CLEAR THROUGH THE RH/RM AND VERIFY THAT THE DRIVE 
DOES NOT RETURN TO NEUTRAL. 


D. RELEASE THE DRIVE THROUGH PORT 'B'. 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


OPS eer Iii Titi iii titiit itt ttt tite t 
49 gh gt ONLY SINGLE TEST ? 


TEST 
sRETURN & GET NEXT TEST NUMBER 
:SET SINGLE TEST INDICATOR 
;SETUP SCOPE LOOP ADDRESS 
:SETUP ERROR LOOP ADDRESS 


sMOVE #15 TO TEST NUMBER 


KYBCTL 
2 


:BR_IF JUST ENTERED 


RO 
PORT IF TEST SHOWS a NOT IN NEUTRAL 
TA’ = ERROR TYPE OUT 


ORT A 
F STATUS EQ ZERO FROM PORT B. 


VERIFY THAT THE DRIVE 


;LOAD THE STACK POINTER 


7:00 25. 


ITERATIONS 


SEQ 0076 
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CZR 
115 PORT "B' SEIZE AND CLEAR TEST SEQ 0077 
624 
625 

:SEIZE THE DRIVE THROUGH PORT B 

021716 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 

021724 013737 001226 001242 MOV PORTB, SEIZPT : STORE SEIZING PORT'S ADDRESS 

021732 005060 000012 CLR RMDS (RO) WRITE RMDS 

021736 113760 001224 000010 MOVB PORTA, yi aoe ;SELECT PORT A 

021744 013737 001224 001240 MOV PORTA, PIN NBR mo PORT ADDRESS y - + aa FOR TYPEOUT 

021752 013737 001224 001244 MOV PORTA,OPPRT ;"OPPOSITE' PORT ADDRESS 

021760 016037 000012 001126 MOV RMDS (RO) ames 3 SEE IF DRIVE SEIZED BY PORT B | 

021766 010037 001122 MOV RO,SBDA RH/RM BASE ADDRESS 

021772 062737 000012 001122 ADD gRADS, SBDADR : GENERATE BAD REGISTER ADDRESS 

022000 005037 001124 CLR SGDDAT sREGISTER SHOULD BE ZERO 

022004 023737 001124 001126 CMP $GDDAT,SBDDAT 1S THE REGISTER ZERO 

022012 001403 BEQ 64% :BR IF IT IS 

022014 104004 EMT 4 

O5Seq8 000137 023236 os JMP 1$ sBYPASS REST OF THE SUBTEST 

022022 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 

022030 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

022036 016037 000012 001126 MOV RMDS (RO) , $BDD aT SEE IF SEIZING POR1 SEES CORRECT STATUS 

022044 042737 020001 001126 BIC #OM!PIP,$BDDA CLEAR DONT CARE BITS 

022052 012737 011700 001124 MOV ¥MOL.'PGM'DPR “DRY! VV, SGDDAT ;EXPECTED STATUS 

022060 013737 001124 001166 MOV peeeers $TMP1 ;USE GOOD DATA AS A MASK 

022066 005137 001166 COM STMP1 ;COMPLEMENT THE tt STATUS 

022072 013737 001126 001164 MOV SBDDAT, STMPO ;SAVE THE ACTUAL tte TUS 

022100 043737 001166 001164 BIC STMP1,$TMPO :CLEAR UNWANTED BIT 

022106 023737 001124 001164 CMP SGDDAT,STMPO ;ARE THE EXPECTED STATUS BITS SET ? 

022114 001401 BEQ 65$ ;BR IF THEY ARE 

022116 104005 EMT 5 | 

022120 000240 65$: NOP 

| 

:DRIVE CLEAR THROUGH PORT B FIRST | 

022122 012760 000011 000000 MOV #11,RMCS1(RO) ;ISSUE DRIVE CLEAR THROUGH PORT B | 
VERIFY THAT DRIVE STILL SEIZED BY PORT B 

022130 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A | 

022136 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

022144 005037 001250 CLR CKERR CLEAR THE ‘CHECK a gd INDICATOR 

022150 016037 000012 001126 MOV RMDS(RO),SBDDAT ;GET CONTENTS OF RMDS 

022156 012737 000012 001122 MOV #RMDS, SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE | 

022164 060037 001122 ADD +f ts ;ADD_RH/RM BASE ADDRESS 

022170 005037 001124 CLR $GDD WHAT REGISTER SHOULD BE 

022174 013737 001126 001164 MOV SEDDAT STMPO ;MOVE REGISTER ot te TO *$TMPO' 

022202 042737 100000 001164 BIC #°C77777,$TMPO SAVE SPECIFIED BITS 

022210 023737 001124 001164 CMP $GDDAT , STMPO :COMPARE THE BITS 

022216 001414 BEQ 66$ :BR IF OK 

022220 013737 001126 001174 MOV SBDDAT,STMP4 COPY ‘BAD DAT 

022226 042737 077777 001174 BIC #77777, STMPS4 CLEAR THE MASKED BITS 

022234 053737 001174 001124 BIS $TMP4,SGDDAT :'OR* WITH GOOD DATA FOR TYPEOUT 

022242 104033 EMT 

022244 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 

0222 000240 66$: NOP 

022252 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
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PORT ‘B' SEIZE AND CLEAR TEST SEQ 0078 
022260 013737 001226 001240 MOV oeeen’ PTNBR ;MOVE sey ADDRESS TO LOCATION FOR TYPEOUT 
022266 005037 001250 CLR CKERR :CLEAR THE “CHECK ERROR' INDICATOR 
022272 016037 000012 001126 MOV RMDS(RO), SBDDAT “GET CONTENTS OF RMDS 
022300 012737 00001 001122 MOV #RMDS, $BDAD iFORM R y te Ue hobress OF ERROR MESSAGE 
022306 060037 001122 ADD RO, $BDADR ADD RH/RM BASE ADDRESS 
022312 012737 011700 001124 MOV #MOL'PGM'DPR!DRY VV, SEDDAT UHAT OREGISTER SHOULD BE 
022320 013737 001126 001164 MOV SBDDAT ,STMPO “MOVE REGISTER IY lh gale TO ‘STMPO' 
022326 042737 100000 001164 BIC #*C77777,$TMPO :SAVE SPECIFIED BITS 
022334 023737 001124 001164 CMP SGDDAT, $TMPO +h py B THE BITS 
022342 001414 BEQ 68$ ‘BR IF O 
022344 013737 001126 001174 MOV SBDDAT,STMP4 = COPY ‘BA AD DAT 
022352 042737 077777. 001174 BIC #77777.$TMP4 = = CLEAR THE MASKED BITS 
022360 053737 001174 001124 BIS STMP4, $GDDAT ;"OR' WITH GOOD DATA FOR TYPEOUT 
022366 104033 EMT 3 
022370 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
022374 000240 68$: NOP 

;NOW ISSUE MASSBUS INIT 
022376 012760 000040 000010 MOV ACLR,RMCS2(RO) ;ISSUE MASSBUS INIT 

;CONFIRM THAT DRIVE STILL SEIZED BY PORT B 
022404 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
022412 013737 001224 001240 MOV PORTA,PTNBR ;MOVE 4s ADDRESS TO LOCATION FOR TYPEOUT 
022420 005037 001250 CLR CKERR ;CLEAR THE "CHECK ERROR’ INDICATOR 
022424 016037 000012 1126 MOV RMDS(RO),S$BDDAT ;GET CONTENTS OF RMDS 
022432 012737 000012 001122 MOV #RMDS ,SBDADR s FORM REGISTER righ te OF ERROR MESSAGE 
022440 060037 001122 ADD RO, $BDADR sADD RH/RM BASE A DRESS 
022444 005037 001124 CLR $GDDAT ;WHAT REGISTER Be oy BE 
022450 013737 001126 001164 MOV S$BDDAT,$STMPO “MOVE REGISTER CONTENTS T0 ‘STMPO' 
022456 042737 100000 001164 BIC #°C77777,$TMPO :SAVE SPECIFIED BITS 
022464 023737 001124 001164 CMP SGDDAT, $TMPO pe THE BITS 
022472 001414 BEQ 70$ R IF OK 
022474 013737 001126 001174 MOV SBDDAT,STMP4 ‘COPY "BAD DATA 
022502 042737 077777 001174 BIC #77777, STMP4 ;CLEAR THE aces BITS 
022510 053737 001174 001124 BIS STMP4,$GDDAT :"OR' WITH GOOD DATA FOR TYPEOUT 
022516 104934 EMT 34 
022520 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
022524 000240 70$: NOP 
022526 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
022534 013737 001226 001240 MOV PORTB,PTNBR s MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
022542 005037 001250 CLR CKERR sCLEAR THE ‘CHECK a INDICATOR 
022546 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
022554 012737 000012 001122 MOV #RMDS,SBDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
022562 060037 001122 ADD RO, $BDA ADR ADD RH/RM BASE ADDRESS 

22566 012737 011700 001124 MOV #MOL PGR! DPRDRY!VV, S$GDDAT ;WHAT REGISTER SHOULD BE 

022574 013737 001126 001164 MOV SBDDAT ,STMPO [MOVE REGISTER CONTENTS TO ‘$TMPO' 
022602 042737 100000 001164 BIC raat STMPO ;SAVE SPECIFIED BITS 
022610 023737 001124 001164 CMP SGDDAT, $TMPO ;COMPARE THE BITS 
022616 001414 BEQ 72$ ‘BR IF OK 
022620 013737 001126 001174 MOV SBDDAT, STMP4 ;COPY ‘BAD DATA’ 
022626 042737 077777 001174 BIC #77777,$TMP4  :CLEAR THE MASKED BITS 
022634 053737 001174 001124 BIS STMP4 ,SGDDAT "OR" WITH GOOD DATA FOR TYPEOQUT 
022642 104034 EMT 34 } 
022644 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATGR 


022650 000240 72%: NOP 
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001122 
001124 


001126 
001240 
000010 


001240 
001126 
000010 


001254 
000000 
000000 


001126 


SEQ 0079 
;RELEASE THE DRIVE FROM PORT B 
MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV WI3,RMCSI(RO) ;ISSUE RELEASE THROUGH PORT B 
;VERIFY THAT THE DRIVE 1S STILL IN NEUTRAL 
CLR RELERR ZCLEAR THE "RELEASE ERROR ' INDICATOR 
MOV #RMDS, SBDADR ; FORM THE ADDRESS OF RMDS FOR TYPEOUT 
ADD RO, SBDADR ADD THE 1/0 BASE ADDRESS 
MOV #MOL'PGM'DPR!DRY VV, SGDDAT : COMPARISON CONSTANT 
MOVB PORTA, RMCS2(RO) ;SELECT PORT A, 
MOV RMDS(RO),$TMP2 :GET THE ORIVE STATUS REGISTER FROM PORT A. 
BIC #PIP'WRL ‘OM, $TMP :CLEAR DONT CARES 
MOV STMP2,$TMPO :COPY IT INTO '$TMPO' 
BIC WATA'VV,STMPO =: CLEAR PORT DEPENDENT BITS FROM THE COPY 
MOVB  PORTB,RMCS2(RO) :SELECT PORT 
MOV RMDS(RO),$TMP3 :GET THE DRIVE “STATUS REGISTER FROM PORT B. 
BIC #PIP'WRL'OM,$STMPS sCLEAR DONT CARES 
MOV $TMP3,STMP1 :COPY IT INTO ‘$TMP1' 
BIC #ATA'VV,$TMP1 =CLEAR PORT DEPENDENT BITS FROM THE COP 
CHP STMPO, STMP| i1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
N 
TST $TMPO “REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BNE 76$ :BR IF NOT 
EMT 46 
JMP 78$ :BYPASS THE REST OF THE CHECKS 
74$: MOV STMP2,$BDDAT | :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
MOV PORTB,PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
TST $TMPO :SEE IF STATUS EQ 0 FROM PORT A. 
BEQ 75$ ‘BR IF ZERO 
MOV PORTA, PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOV STMP3,$BDDAT : BAD DATA’ FOR ERROR TYPE OUT 
MOVB  PORTA.RMCS2(RO) :SELECT PORT A 
TST STMP1 SEE IF (Status: EQ ZERO FROM PORT B. 
BNE 76$ ‘BR IF 
75$: MOV #-1,RELERR SET RELEASE ERROR’ INDICATOR 
MOV #11,RMCS1(RO) CLEAR THE DRIVE 
MOV 13, RACS1(RO) TRELEASE THE DRIVE 
76$: MOV STMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
MOV PORTA.PTNBR ;CHANGE PORT NUMBER 
BIC #ATA, $BDDAT “DON'T CHECK THE ATTN BIT 
CMP $GDDAT,$BDDAT ALL BITS OK 
BEQ crs 7BR IF OK PROM PORT A. 
77$: MOV STMP3,SBDDAT CHECK RMDS FOR Bit FAILURES - FROM PORT B. 
MOV PORTB,PTNBR ;CHANGE PORT NUMBER 
BIC HATA, $BDDAT ‘DON'T CHECK WHE ATIN BIT 
CMP SGDDAT,SBDDAT SEE IF READ OK FROM PORT B. 
BEQ 78$ :BR IF OK 
EMT 7 
78%: NOP 
1$: SCOPE :LOOP ? 
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000013 


001224 


001124 


024162 
001224 
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001300 
001106 
001110 
001102 


001176 


000010 
000000 
000000 
000010 


000000 
000000 


000010 
001242 


000010 


001126 
001122 
001126 


000010 


: : SURO EERE TEER HARARE eee erenese 


eeTEST 16 SEIZE 'A' BY RMCS1 TEST 


TeVERIFY THAT READING Me a REGISTER (RMCS1) SEIZES THE DRIVE 
aa DRIVE IS _IN NEUT 


ie READ THE CONTROL REGISTER (RMCS1) THROUGH PORT ‘A’; VERIFY THAT 
i* THE DRIVE IS SEIZED. 
*® 
;* B. ISSUE A RELEASE COMMAND THROUGH PORT ‘A’; VERIFY THAT THE DRIVE 
ie RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
*@ 
:: ARRAS RRSRASASESESESESEE REESE EEE STEER SESE ESSEC SALSALAESELALLCLLL SE 
TST16: 
TST KYBCTL :PERFORMING ONLY SINGLE TEST ? 
BEQ 2$ <BR IF NOT 
BPL 1$ :BR IF JUST ENTERED TEST 
JMP EXEC [RETURN & GET NEXT TEST NUMBER 
1$: MOV #-1,KYBCTL :SET SINGLE TEST INDICATOR 
2$: MOV HTESTIO,$LPADR SETUP SCOPE LOOP ADDRESS 
iin MOV WTESTI6,S$LPERR :SETUP ERROR LOOP ADDRESS 
" MOVB #16, $TSTNM :MOVE #16 TO TEST NUMBER 


MOV ASTACK,SP ;LOAD THE STACK POINTER 
MOV #25. ,STIMES 3:00 25. ITERATIONS 


sCLEAR ATTENTION BITS FOR BOTH PORTS 


MOVB PORTA,RMCS2(RO) ;SELECT PORT #A 

CLR RMDS (RO) SEIZE THE DRIVE 

MOV M11, RMCSI(RO) ;ISSUE DRIVE CLEAR 

MOV #13,RMCS1(RO) RELEASE THE DRIVE 

MOVB PORTB,RMCS2(RO) ;SELECT PORT #B 

CLR RMDS (RO) :SEIZE THE DRIVE a PORT 'B' 
MOV W11,RMCSI(RO) ISSUE DRIVE CLEAR 

MOV #13,RMCS1(RO) [RELEASE THE DRIVE 


sSEIZE THE DRIVE THROUGH PORT A 


MOVB PORTA,RMCS2(RO) ;SELECT PORT A 

MOV PORTA,SEIZPT ;STORE SEIZING PORT'S ADDRESS 

TST RMCS1(RO) sREAD RHCS1 

MOVB PORTB,RMCS2(RO) ;SELECT PORT B 

MOV PORTB,PTNBR ;MOvE PORT ADDRESS yp FOR TYPEOUT 


MOV PORTB,OPPRT "OPPOSITE’ PORT A 

MOV RMDS (RO) zeeat iSEE y et iy! SEIZED BY PORT A 
MOV RO, $BDAD M BASE ADDRESS 

ADD #RMDS, ;SBDADR GENERATE BAD REGISTER ADDRESS 
CLR SGDDAT :REGISTER SHOULD BE ZERO 

CMP SGDDAT,S$BDDAT 31S THE at | hla ZERO 

BEQ 64% :BR IF 17 1S 

EMT t 

JMP 1$ :BYPASS REST OF THE SUBTEST 


64%: 
MOVB PORTA,RMCS2(RO) ;SELECT PORT A 


SEQ 0080 
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023504 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
023512 016037 000012 001126 MOV RMDS(RO) ,$BDDAT ;SEE IF SEIZING PORT SEES ganar STATUS 
023520 042737 020001 001126 BIC #OM!PIP, SBDDAT CLEAR DONT CARE BIT 
023526 012737 011700 001124 MOV #MOL'PGA'DPR “DRY! WV, SGDDAT vee ee STATUS 
023534 013737 001124 001166 MOV SGDDAT,STMP1 ;USE GOOD DATA AS A MASK 
023542 005137 001166 COM STMP) COMPLEMENT THE EXPECTED STATUS 
023546 013737 001126 001164 MOV SBDDAT ,STMPO ;SAVE THE ACTUAL STATUS 
023554 043737 001166 001164 BIC $TMP1,STMPO ;CLEAR UNWANTED BITS 
023562 023737 001124 001164 CMP SGDDAT, $TMPO ARE THE ro a STATUS BITS SET ? 
023570 001401 BEQ 65$ :BR IF THEY ARE 
023572 104005 EMT 5 
023574 000240 65$: NOP 

sRELEASE THE DRIVE FROM PORT A 
023576 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
023604 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
023612 012760 000013 000000 MOV MI3Z,RMCS1(RO)  ;ISSUE RELEASE THROUGH PORT A 

:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
023620 005037 001254 CLR RELERR CLEAR THE ‘RELEASE ERROR ° INDICATOR 
023624 012737 000012 001122 MOV #RMDS ,SBDADR FORM THE ADDRESS OF RMDS FOR TYPEOUT 
023632 060037 001122 ADD RO, $BDADR :ADD THE 1/0 BASE ADDRESS 
023636 012737 011700 001124 MOV #MOL'PGM'DPR!DRY! VV, $GDDAT ae CONSTANT 
023644 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT 
023652 016037 000012 001170 MOV RMDS(RO),STMP2 :GET THE ‘DRIVE "STATUS REGISTER FROM PORT A. 
023660 042737 024001 001170 BIC #PIP!WRL!OM,STMP CLEAR DONT CARES 
023666 013737 001170 001164 MOV STMP2,STMPO : COPY 11 INTO *STMPO' 
023674 042737 100100 001164 BIC WATA‘VV,STMPO ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
023702 113760 001226 000010 MOVB PORTB,RMCS2(RO) :SELECT PORT B. 
023710 016037 000012 001172 MOV RMDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
023716 042737 024001 001172 BIC #PIP!WRL ‘OM, STMPS CLEAR DONT CARES 
0237246 013737 001172 001166 MOV STMP3,STMP1 :COPY IT INTO ‘STMP1' 
023732 042737 100100 001166 BIC WATA‘VV,STMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
023740 023737 001164 001166 CMP STMPO,STMP1 :1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
023746 001006 BNE 66$ F NOT 
023750 005737 001164 TST STMPO TREGISTERS ARE THE SAME: ARE THEY ZERO ? 
025754 001045 BNE 68$ BR IF NOT 
023756 104046 EMT 46 
023760 000137 024160 JMP 70$ BYPASS THE REST OF THE CHECKS 
023764 013737 001170 001126 668: MOV STMP2, or ;SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
023772 013737 001226 001240 MOV PORTB,P ; SEIZING a IF TEST SHOWS DRIVE NOT IN NEUTRAL 
024000 113760 001226 000010 MOVB PORTB, RNCSSCRO) ;SELECT PORT B. 
0240 005737 001164 TST STMPO :SEE IF STATUS EQ 0 FROM PORT A. 
024012 001414 BEQ a :BR IF ZERO 
024014 013737 001224 001240 MOV PORTA,PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
024022 013737 001172 001126 MOV STMP3,SBDDAT ;"BAD DATA’ FOR ERROR TYPE OUT 
024050 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A. 
024036 005737 001166 TST STMP1 ;SEE_ IF STATUS EQ ZERO FROM PORT B. 
024042 001012 BNE 68% :BR_IF NOT 
024044 012737 177777 001254 67%: MOV #-1,RELERR ;SET ‘RELEASE ERROR* INDICATOR 
024052 012760 000011 000000 MOV W11,RMCS1(RO) [CLEAR THE DRIVE 
024060 012760 000013 000000 MOV W13,RMCS1(RO) ;RELEASE THE DRIVE 
024066 104026 EMT 26 
024070 013737 001170 001126 688%: MOV STMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
024076 013737 001224 001240 MOV PORTA,PTNBR ; CHANGE PORT NUMBER 
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024104 042737 100000 001126 BIC #ATA, SBDDAT :DON'T CHE CK THE ATIN BIT 
024112 023737 001124 001126 (MP $GDDAT,$BDDAT ALL BITS OK 
024120 001401 BEQ 69$ ‘BR IF OK PROM PORT A. 
024122 104007 EMT ? 
024124 013737 001126 69%: MOV STMP3,$BDDAT CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
024132 013737 001226 001240 MOV PORTB.PTNBR ‘CHANGE PORT NUMBER 
024140 042737 100000 001126 BIC #ATA, $BDDAT ‘DON'T CHECK THE ATTN BIT 
024146 023737 001124 001126 CMP $GDDAT,SBDDAT ;SEE IF READ OK FROM PORT 8. 
024154 001401 BEQ 70$ ‘BR IF OK 
024156 104007 EMT ? 
024160 000240 70$: NOP 
a 024162 000004 1$: SCOPE :LOOP ? 
663 
664 SUTRA eee eee eee eee Ketter eeeeeeeneet 
:#TEST 17 SEIZE 'B’ BY RMCS1 TEST 
VERIFY THAT READING THE CONTROL REGISTER (RMCS1) SEIZES THE DRIVE 
:*]F THE DRIVE IS IN NEUTRAL 
:* A. READ THE CONTROL REGISTER (RMCS1) THROUGH PORT 'B': VERIFY THAT 
:* THE DRIVE IS SEIZED 
:* B. ISSUE A RELEASE COMMAND THROUGH PORT 'B': VERIFY THAT THE DRIVE 
:. RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
** 
:: (AR RRRBRRBSRSRARASASAERERSRASRARAERESERERERESEAAEER RARER ERE ERRORS SE OSS 
024164 18117: 
024164 005737 001300 TST KYBCTL : PERF ORMING ONLY SINGLE TEST ? 
024170 001406 BEQ 2$ ‘BR IF NOT 
024172 100002 BPL 1$ ‘BR IF JUST ENTERED TEST 
024174 000137 003110 JMP EXEC :RETURN & GET NEXT TEST NUMBER 
024200 012737 177777 001300 1S: MOV #-1, KYBCTL :SET SINGLE TEST INDICATOR 
024206 012737 024222 001106 2$: MOV #TEST17,$LPADR :SETUP SCOPE LOOP ADDRESS 
024214 012737 024222 001110 seats MOV #TESTI7,$LPERR :SETUP ERROR LOOP ADDRESS 
024222 112737 000017 001102 MOVB #17, $TSTNM :MOVE #17 TO TEST NUMBER 
024230 012706 001100 MOV #STACK,SP ‘LOAD THE STACK POINTER 
we 024234 012737 000031 001176 MOV #25. ,$TIMES +:D0 25. ITERATIONS 
666 
ZCLEAR ATTENTION BITS FOR BOTH PORTS 
024242 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT #A 
024250 005060 000012 CLR RMDS (RO) ‘SEIZE THE DRIVE 
024254 012760 000011 000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
024262 012760 000013 000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
024270 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT #B 
024276 005060 000012 CLR RMDS (RO) [SEIZE THE DRIVE THROUGH PORT ‘B' 
024302 012760 000011 000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
024310 012760 000013 000000 MOV #13,RMCS1(RO)  ;RELEASE THE DRIVE 
;SEIZE THE DRIVE THROUGH PORT B 
024316 113760 001226 000010 MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
024324 013737 001226 001242 MOV PORTB.SEIZPT ;STORE SEIZING PORT'S ADDRESS 
024332 005760 000000 TST RMCS1(RO) ;READ RHC 
024336 113760 001224 000010 MOVB PORTA, RMCS2(RO) *: SELECT as A 
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024344 013737 001224 001240 MOV PORTA,PTNBR sMOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
024352 013737 001224 001244 MOV PORTA,OPPRT ;"OPPOSITE’ PORT ADDRESS 
024360 016037 000012 001126 MOV RMDS (RO) ,SBDDA : SEE IF tt hy sees? BY PORT B 
024366 010037 001122 MOV RO, $BDADR RH/RM BASE ADDRESS 
024372 062737 000012 001122 ADD #RMDS , SBDADR GENERATE BAD REGISTER ee 
024400 005037 001124 CLR $GDDAT REGISTER SHOULD BE ZERO 
024404 023737 001124 001126 CMP SGDDAT,SBDDAT ;1S THE REGISTER ZERO 
024412 001403 BEQ 64% :BR IF IT IS 
024414 104004 EMT 4 
BScass 000137 025106 “8 JMP 1$ ;BYPASS REST OF THE SUBTEST 
024422 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
024430 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
024436 016037 000012 001126 MOV RMDS (RO) SBDDAT ;SEE IF SEIZING PORT SEES ane STATUS 
024444 042737 020001 001126 BIC #OM'PIP,$BDDA ;CLEAR DONT CARE BIT 
024452 012737 011700 001124 MOV #MOL.' PGA DPR "DRY! WV, SGDDAT ; EXPECTED STATUS. 
024460 013737 001124 001166 MOV ieee $TMP1 ;USE GOOD DATA AS A MASK 
024466 005137 001166 COM STMP1 ; COMPLEMENT THE EXPECTED STATUS 
024472 013737 001126 001164 MOV SBDDAT $TMPO ;SAVE THE ACTUAL STATUS 
024500 043737 001166 001164 BIC $TMP1,$TMPO ;CLEAR UNWANTED BITS 
024506 023737 001124 001164 CMP $SGDDAT,$TMPO ARE THE eta STATUS BITS SET ? 
024514 001401 BEQ 65$ ;BR IF THEY ARE 
024516 104005 EMT 5 
024520 000240 65$: NOP 

RELEASE THE DRIVE FROM PORT B 
024522 113760 001226 000010 MOVB PORTB, RMCS2(RO) ;SELECT PORT B 
024530 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
024536 012760 000013 000000 MOV W13,RMCS1(RO) ; ISSUE RELEASE THROUGH PORT B 

VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
024544 005037 001254 CLR RELERR CLEAR THE ‘RELEASE ERROR * INDICATOR 
024550 012737 000012 001122 MOV #RMDS ,SBDADR FORM THE ADDRESS OF yt FOR TYPEOUT 
024556 060037 001122 ADD RO, $BDADR ;ADD THE 1/0 BASE ADDRESS 
024562 012737 011700 001124 MOV WMOL'PGM!DPR!DRY!VV,S$GDDAT ; COMPARISON CONSTANT 
024570 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A. 
024576 016037 000012 001170 MOV RMDS(RO),STMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A, 
024604 042737 024001 001170 BIC #PIP!WRL'OM,S$TMP2 CLEAR DONT CARES 
024612 013737 001170 001164 MOV STMP2,STMPO ;COPY IT INTO ‘STMPO' ; 
024620 042737 100100 001164 BIC WATA‘VV,STMPO ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
024626 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 
024634 016037 000012 001172 MOV RMDS(RO),STMP3 GET THE DRIVE thee REGISTER FROM PORT B. 
024642 042737 024001 001172 BIC #PIP!WRL!OM,STMP sCLEAR DONT CARES 
024650 013737 001172 001166 MOV STMP3,STMP1 ;COPY IT INTO 'STMP1' 
024656 042737 100100 001166 BIC WATA'VV,STMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
024664 023737 001164 001166 CMP STMPO,STMP1 :1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
024672 001006 BNE 66% ;BR IF NOT 
024674 005737 001164 TST STMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
024700 001045 BNE 68% ;BR IF NOT 
024702 104046 EMT 46 
024704 000137 025104 JMP 70% ;BYPASS THE REST OF THE CHECKS 
024710 013737 001170 001126 66%: MOV STMP2,SBDDAT :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
024716 013737 001226 001240 MOV PORTB,PTNBR > SEIZING Ay IF TEST SHOWS DRIVE NOT IN NEUTRAL 
024724 113760 01226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 
024732 005737 001164 TST $TMPO SEE IF STATUS EQ 0 FROM PORT A, 
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024736 001414 BEQ 67$ 3;BR IF ZERO 
024740 013737 001224 001240 MOV PORTA,PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
024746 013737 001172 001126 MOV STMP3. SBDDAT ;'BAD DATA’ FOR ERROR TYPE OUT 
024754 113760 001224 600010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A. 
024762 005737 001166 TST STMP1 ;SEE IF STATUS EQ ZERO FROM PORT 8B. 
024766 001012 BNE 68$ ;BR IF NOT 
024770 012737 177777 001254 67%: MOV #-1,RELERR ;SET "RELEASE ERROR’ INDICATOR 
024776 012760 000011 000000 MOV #11,RMCS1(RO) ;CLEAR THE DRIVE 
025004 012760 000013 000000 MOV #13,RMCS1(RO) : RELEASE THE DRIVE 
025012 104026 EMT 26 
025014 013737 001170 001126 68s: MOV STMP2,SBDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
025022 013737 001224 001240 MOV PORTA,PTNBR ; CHANGE PORT NUMBER 
025030 042737 100000 001126 BIC #ATA,SBDODAT ;DON'T CHECK THE ATTN BIT 
025036 023737 001124 001126 CMP SGDDAT,SBDDAT TALL BITS OK ? 
025044 001401 BEQ 69$ ;BR IF OK FROM PORT A 
025046 104007 EMT 7 
025050 013737 001172 001126 69%: MOV $STMP3,$BDDAT ; CHECK RMDS FOR BIT FAILURES = FROM PORT B. 
025056 013737 001226 001240 MOV PORTB,PTNBR : CHANGE PORT NUMBER 
025064 042737 100000 001126 BIC #ATA,SBDDAT ;DON'T CHECK THE ATTN BIT 
025072 023737 001124 001126 CMP $GDDAT,$BDDAT = SEE IF READ OK FROM PORT B. 
025100 001401 BEQ 70% :BR IF OK 
025102 104007 EMT 7 
025104 000240 708: NOP 
025106 000004 1$: SCOPE ;LOOP ? 
667 
062 
684 ° ‘iii hee PPP PPP RPE PES SESASSACACCLLCLCCLLCL.. Tee ee ee 
:#TEST 20 PORT ‘A* INHIBIT SEIZE BY RMCS1 TEST 
:*VERIFY THAT READING THE CONTROL +t? eae (RMCS1) DOES NOT SET ‘PORT 
; REQUEST’ IF THE DRIVE IS SEIZED 
:* A. SEIZE THE DRIVE THROUGH PORT 'B' BY READING RMCS1. VERIFY THAT 
uf THE DRIVE WAS BEEN SEIZED. 
se 8 ao THE CONTROL REGISI£R FROM PORT ‘A. VERIFY THAT *DVA' IS NOT 
se ET. 
:* (C. ISSUE A RELEASE COMMAND THROUGH PORT 'B'. VERIFY THAT i DRIVE 
if RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 
_p Rr REIS Fhe IT a as NNT ARS ANE 
025110 TST20: 
025110 005737 001300 TST KYBCTL : PERFORMING ONLY SINGLE TEST ? 
02°°14 001406 BEQ 2% IF NOT 
024:16 100002 BPL 1$ “BR IF JUST ENTERED TEST 
025120 000137 003110 JMP EXEC sRETURN & GET NEXT TEST NUMBER 
025124 012737 177777 001300 1$: MOV #-1,KYBCTL SET SINGLE TEST INDICATOR 
025132 012737 025146 001106 2%: MOV MTEST20,$LPADR ;SETUP SCOPE LOOP ADDRESS 
ites 012737 025146 001110 ——- MOV MTEST20,$LPERR ;SETUP ERROR LOOP ADDRESS 
025146 112737 000020 001102 MOVB #20,$TSTNM :MOVE #20 TO TEST NUMBER 
025154 012706 001100 MOV MSTACK,SP ;LOAD THE STACK POINTER 
95 025160 012737 000031 001176 MOV #25. ,STIMES :3D0 25. ITERATIONS 
6 
702 


CLEAR ATTENTION BITS FOR BOTH PORTS 
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BY RMCS1 


000010 
000000 
000000 
000010 


000000 
000000 


000010 
001242 


000010 


001126 
001122 
001126 


000010 


001166 


001164 
001164 
001164 


000010 
001240 


PORTA,RMCS2(RO) ;SELECT PORT MA 

RMDS (RO) SEIZE THE DRIVE 

W11,RMCS1(RO) [ISSUE DRIVE CLEAR 

#13, RMCS1(RO) ;RELEASE _ DRIVE 
PORTB,RMCS2(RO) :SELECT PORT #B 

RMDS (RO) SEIZE THE DRIVE  -aaeaceas PORT ‘B' 
W11,RMCSI(RO) [ISSUE DRIVE CLEAR 

M13,RMCS1(RO) ;RELEASE THE DRIVE 


;SEIZE THE DRIVE THROUGH PORT B 


64$: 


65$: NOP 


PORTB,RMCS2(RO) ;SELECT PORT B 
PORTB,SEIZPT ;STORE y Lift PORT'S ADDRESS 
RMCS1(RO) ;READ RHCS1 
Aoki RMCS2(RO) ;SELECT PORT A 

A,PTNBR ;MOvE PORT ADDRESS TO LOCATION FOR TYPEOUT 
PORTA. OPPRT *OPPOSITE’ PORT ADDRESS 
RMDS(RO), ante DAT ;SEE IF DRIVE SEIZED BY PORT B 
RO, $BDAD ;RH/RM BASE ADDRESS 
#RMDS, SBDADR ; GENERATE BAD REGISTER ADDRESS 
$GDDAT REGISTER SHOULD BE ZERO 
$GDDAT,S$BDDAT 31S THE REGISTER ZERO 
64$ :BR IF IT 1S 


4 
1$ ;BYPASS REST OF THE SUBTEST 


PORTB,RMCS2(RO) ;SELECT PORT B 

PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(RO), SBDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
#OM!PIP, SBDDAT ;CLEAR DONT CARE BITS 
#MOL'PGM'DPR!DRY! VV, SGDDAT cee STATUS 
SGDDAT,STMP1 sue GOOD DATA’ AS A MAS 

STMP1 COMPLEMENT THE EXPECTED STATUS 

SBDDAT ,STMPO :SAVE THE ACTUAL STAT 

STMP1,$TMPO ;CLEAR UNWANTED BIT ae 

$GDDAT, $TMPO ARE THE EXPECTED STATUS BITS SET ? 

65$ :3R IF THEY ARE 


PORTA,RMCS2(RO) ;SELECT PORT A 
PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


THROUGH PORT A - TRY TO SET PORT REQUEST 


CKERR ZCLEAR THE "CHECK ERROR' INDICATOR 
RMCS1(RO),$BDDAT ;GET CONTENTS OF RMCS1 

#RMCS1, SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO, $BDA ADD RH/RM BASE ADDRESS 

$60 soar T REGISTER SHOULD BE 

SBDDAT $TMPO ‘MOVE REGISTER CONTENTS TO 'STMPO' 
#°C4077,$TMPO ; SAVE SPECIFIED BITS 

SGDDAT, S$ TMPO : COMPA RE THE BIT 


66 OK 
SBDDAT STMP4 COPY ‘BAD DATA’ 

#4077, $1MP4 ‘CLEAR THE MASKED BITS 
$TMP4;$GDDAT : OR" WITH GOOD DATA FOR TYPEOUT 


SEQ 0085 


CZRMRAO RMO5/ 3/2 DU POR TST 1 
‘A’ INHIBIT SEIZE 


i20 PORT 
625560 


025562 
025566 


025570 
025576 
025604 


025612 


026132 


104010 
005137 
000240 


001250 


001164 
001164 


026152 


001164 
001224 


001166 
177777 
000011 
000013 


001170 


001124 


001172 
001226 
100000 
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BY RMCS1 TEST 


EMT 10 
668: 
;DRIVE SHOULD RETURN TO NEUTRAL 
s;RELEASE THE DRIVE FROM PORT B 


000010 MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
001240 MCV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT B 
;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
CLR RELERR ZCLEAR THE ‘RELEASE ERROR * INDICATOR 
001122 MOV #RMDS,SBDADR § :FORM THE ADDRESS OF RMDS FOR TYPEOUT 
ADD RO, $BDADR ‘ADD THE 1/0 BASE ADDRESS 
001124 MOV #MOL!PGM'!DPR! DRY! VV, S$GDDAT : COMPAR! SON CONSTANT 
000010 MOVB _—sC— PORTA, RMCS2 (RO) SSELECT PORT A 
001170 MOV RMDS(RO),$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
001170 BIC #PIP'WRL'OM,$TMP2 sCLEAR DONT CARES 
001164 MOV STMP2,$TMPO sCOPY IT INTO '$TMPO' 
001164 BIC #ATA'VV,STMPO  :CLEAR PORT DEPENDENT BITS FROM THE COPY 
000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
001172 MOV RMDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
001172 BIC #PIPLWRL {OM $TMP3 :CLEAR DONT CARES 
001166 MOV $TMP3,$TMP >COPY IT INTO '$TMP1' 
007166 BIC #ATA'VV, STNPT =CLEAR PORT DEPENDENT BITS FROM THE COPY 
001166 CMP $TMPO,$TMP1 :IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
BNE 68$ ‘BR IF NOT 
TST $TMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
BNE 70$ :BR IF NOT 
EMT 46 
JMP 72$ :BYPASS THE REST OF THE CHECKS 
001126 68%: MOV STMP2,$BDDAT | :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
001240 MOV PORTB,PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT B. 
TST $TMPO :SEE IF STATUS EQ 0 FROM PORT A. 
BEQ 69$ ‘BR IF ZERO 
001240 MOV PORTA, PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
001126 MOV STMP3.$BDDAT  :'*BAD DATA' FOR ERROR TYPE OUT 
000010 MOVB PORTA, RMCS2(RO) :SELECT PORT 
TST STMP1 : SEE IF STATUS’ EQ ZERO FROM PORT B. 
BNE 70$ ‘BR IF NOT 
001254 69%: MOV #-1,RELERR SET RELEASE ERRUR" INDICATOR 
000000 MOV #11.RMCS1(RO) CLEAR THE DRIVE 
000000 MOV #13, RMCS1 (RO) *RELEASE THE DRIVE 
001126 70%: Mov STMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
001240 MOV PORTA.PTNBR ;CHANGE PORT NUMBER 
001126 BIC #ATA, $BDDAT ‘DON'T CHE CK THE ATIN BIT 
001126 CMP $GDDAT, SBDDAT TALL BITS OK 
BEQ ris :BR IF OK PROM PORT A, 
001126 71%: MOV STMP3,$BDDAT CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
001240 MOV PORTB,PTNBR ; CHANGE PORT NUMBER 
001126 BIC #ATA, $BDDAT “DON'T CHECK HE ATIN BIT 


op CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 


SEQ 0086 
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CZRMRAO RMOS/3/2 DU P 
120 ORT *A' INHIBIT SELLE BY RMCSi TEST SEQ 0087 
026140 923737 001124 001126 CMP SGDDAT.S$BDDAT ;SEE IF READ OK FROM PORT B. 
026146 001401 BEQ 72$ BR IF OK 
026150 104007 - EMT 7 
026152 000240 72$: NOP 
026154 000004 1$: SCOPE LOOP ? 
119 
720 3 LRAT EATER K HARARE Kee eee 
#TEST 21 PORT 'B' INHIBIT SEIZE BY RMCS1 TEST 
:*VERIFY THAT READING THE CONTROL REGISTER (RMCS1) DOES NOT SET ‘PORT 
; REQUEST’ IF THE DRIVE IS SEIZED 
** 
:* A, SEIZE THE DRIVE THROUGH PORT ‘A’ BY READING RMCS1. VERIFY THAT 
3 THE DRIVE HAS BEEN SEIZED. 
‘* 
it B. READ THE CONTROL REGISTER FROM PORT 'B'. VERIFY THAT 'DVA' IS NOT 
;* . 
!* C. ISSUE A RELEASE COMMAND THROUGH PORT 'A'. VERIFY TWAT THE DRIVE 
: RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT 1S SET. 
* LARSBRSASARASASAAALASSLERSASASASESERRREEERESSERAASESEEESE CESSES EES 
026156 15121: 
026156 005737 001300 TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
026162 001406 BEQ 2$ :BR IF NOT 
026164 100002 BPL 1$ :BR IF JUST ENTERED TEST 
026166 000137 003110 JMP EXEC ;RETURN & GET NEXT TEST NUMBER 
026172 012737 177777 001300 1$: MOV #1, KYBCTL SET SINGLE TEST INDICATOR 
026200 012737 026214 001106 2$: MoV WTEST21,$LPADR ;SETUP SCOPE LOOP ADDRESS 
026206 012737 026214 001110 CT #TESTO1,$LPERR ;SETUP ERROR LOOP ADDRESS 
026214 112737 000021 001102 " MOVB #21, $TSTNM ;MOVE #21 TO TEST NUMBER 
026222 012706 001100 MOV #STACK,SP :LOAD THE STACK POINTER 
791 026226 012757 000051 001176 MOV #25. ,STIMES ::D0 25. ITERATIONS 
722 
;CLEAR ATTENTION BITS FOR BOTH PORTS 
026234 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT #A 
026242 005060 000012 CLR RMDS (RO) :SEIZE THE DRIVE 
026246 012760 000011 000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
026254 012760 000013 000000 MOV W13,RMCS1(RO) RELEASE THE DRIVE 
026262 113760 001226 000010 MOVB PORTB,RMCS2(RO) :SELECT PORT #B 
026270 005060 000012 CLR RMDS (RO) {SEIZE THE DRIVE THROUGH PORT 'B" 
026274 012760 000011 000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
026302 012760 000013 000000 MOV WI3-RMCS1(RO)  :RELEASE THE DRIVE 
;SEIZE THE DRIVE THROUGH PORT A 
026310 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT 
026316 013737 001224 001242 MoV PORTA,SEIZPT ;STORE pe AZING PORT'S ADDRESS 
026324 005760 000000 1ST RMCS1(RO) :READ RHCST 
026330 113760 001226 000010 MOVE — PORTB,RMCS2(RO) "SELECT PORT B 
026336 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
026344 013737 001226 001244 MOV PORTB,OPPRT ; OPPOSITE’ PORT ADDRESS 
026352 016037 000012 001126 MOV RMDS(RO),SBDDAT :SEE IF DRIVE SEIZED BY PORT A 
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BY RMCS1 


001122 
001126 


000010 


001166 


001164 
001164 
001164 


000010 
001240 


001164 


001174 
001174 
001124 


000010 
001240 
000000 


001122 


001124 
000010 


TE 


64$: 


65$: 


SEQ 0088 
MOV RO,$BDADR ;RH/RM BASE ADDRESS 
ADD #RMDS, SBDADR GENERATE BAD REGISTER ADDRESS 
CLR $GDDAT ;REGISTER SHOULD BE ZERO 
CMP SGDDAT,SBDDAT  ;1S THE REGISTER ZERO 
fat te ;BR IF IT IS 
JMP 1$ s:BYPASS REST OF THE SUBTEST 


MOVB  PORTA,RMCS2(RO) SELECT PORT A 

MOV PORTA.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV RMDS (RO) sepDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
BIC #OM!PIP, $BD sCLEAR DONT CARE BITS 

MOV #ROL {PGR IDPRIDRY! VV, S$GDDAT EXPECTED STATUS 


MOV SGDDAT,$TMP1 ;USE GOOD DATA AS A MASK 

COM $TMP1 :COMPLEMENT THE EXPECTED STATUS 

MOV SBDDAT STMPO =: SAVE _THE ACTUAL STAT US 

BIC $TMP1,$TMPO [CLEAR UNWANTED BITS 

CMP SGDDAT,$TMPO =: ARE. THE EXPECTED STATUS BITS SET ? 
BEQ 65$ ‘BR IF THEY ARE 

EMT 4 

NOP 


MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


sREAD RMCS1 THROUGH PORT B - TRY TO SET PORT REQUEST 


66$: 


CLR CKERR CLEAR THE ‘CHECK ERROR' INDICATOR 
MOV RMCS1(RO),$BDDAT. ;GET CONTENTS OF RMCS1 

MOV #RMCS1,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO, $BDADR ADD RH/RM BASE ADDRESS 

CLR $SGDDAT WHAT REGISTER SHOULD BE 


MOV SBDDAT,$TMPO = : MOVE REGISTER CONTENTS TO 'STMPO" 
BIC #°C4077,$TMPO ;SAVE SPECIFIED BITS 
CMP SGDDAT, »$TMPO : COMPARE THE BITS 


BEQ :BR IF OK 

MOV SBDDAT,STMP4 :COPY ‘BAD DATA’ 

BIC #4077,$TMP4 :CLEAR THE MASKED BITS 

car i ean :'OR" WITH GOOD DATA FOR TYPEOUT 

os CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
N 


DRIVE SHOULD RETURN TO NEUTRAL 
sRELEASE THE DRIVE FROM PORT A 


VERIFY 


MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV W13,RMCS1(RO)  ;ISSUE RELEASE THROUGH PORT A 


THAT THE DRIVE IS STILL IN NEUTRAL 


CLR RELERR :CLEAR THE ‘RELEASE ERROR ' INDICATOR 
MOV #WRMDS ,SBDADR [FORM THE ADDRESS OF RMDS FOR TYPEOUI 
ADD RO, SBOADR ADD THE 1/0 BASE ADDRESS 


MOV #MOL !PGM'DPR!DRY ‘VV, S$GDDAT ;COMPARISON CONSTANT 
MOVB PORTA,RMCS2(RO) ;SELECT PORT A. 
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001124 
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BY RMCS1 
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001240 
001126 
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001254 
000000 
000000 
001126 
001126 
001126 


001126 


68$: 


69$: 


70$: 


71$: 


72$: 
1$: 


MOV RMDS (RO) ,STMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
TMP2 AR DONT CARES 


: L 
MOV STMPD-STHPO. ;COPY IT INTO 


+STNP 


BIC MATA!VV,STMPO ;CLEAR PORT T DEPENDENT BITS FROM THE COPY 


MOVB PORTB,RMCS2(RO) SELECT 


PORT 
MOV RMDS(RO),S$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
AR By all NT CARES 


BIC #PIP'WRL‘OM,STMPS :CLEA 
MOV STMPS,STMP1 :COPY IT INTO ' 


BIC HATA'VV,STMP1 = SCLEAR PORT DEPENDENT BITS FROM THE COPY 


CMP STMPO,STMP1 
8$ 


:1S in “ee REGISTER THE SAME FROM BOTH PORTS ? 


BNE 6 

TST $STMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BNE 70$ :BR IF 

EMT 46 

JMP 72$ sBYPASS THE REST OF THE CHECKS 


MOV STMP2,$BDDAT :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
: SEIZING ont TEST SHOWS DRIVE NOT IN NEUTRAL 


MOV PORTB,PTNBR 
MOVB PORTB,RMCS2(RO) ; SELECT 
T STMPO 


;SEE IF STATUS EQ 0 FROM PORT A. 


@ 
mo 
o- 
zz 


6 IF ZERO 
MOV PORTA,PTNBR 
MOV $TMP3,$BDDAT 


1B 
: SEIZING PORT IF TEST SHOWS DRivE NOT IN NEUTRAL 
;"BAD DATA’ FOR ERROR TYPE OUT 


MOVB PORTA,RMCS2(RO) :SELECT PORT A 
ae tg 7 SEE " STATUS "EQ ZERO FROM PORT B. 
N 


MOV #-1,RELERR 
MOV W11,RMCS1(RO) [CLEAR THE D 


:BR NOT 
:SET "RELEASE ERROR’ INDICATOR 
MOV eaten ;RELEASE THE DRIVE 


MOV STMP2,SBDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 


—— PORT NUMBER 


BIC #ATA,SBDDAT ;DON'T CHECK THE ATIN BIT 


CMP $GDDAT,$BDDAT ALL BITS OK 


BEQ 71$ :BR IF OK PROM PORT A. 


7 
MOV STMP3,SBODAT CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
; CHANGE PORT NUMBER 
DON'T CHECK THE ATIN BIT 


CMP $GDDAT,$BDDAT SEE IF READ OK FROM PORT B. 


BEQ 72$ BR IF OK 
EMT 7 

NOP 

SCOPE ;LOOP ? 


Pe Ree eee eee eee eee eee eee eee eee Ke KKK eee Keates 


2 eTEST 22 SEIZE BY RMAS TEST 


:#TEST THAT WRITING THE APPROPRIATE DRIVE BIT INTO THE ATTENTION REGISTER 
— SEIZES THE DRIVE. VERIFY THAT REQUEST IS SET FOR THE OTHER 


Be Be Be Be Be Be Se Be 
ss» es eee 2 


Se 
e 


WRITE THE APPROPRIATE DRIVE BIT INTO RMAS; VERIFY THAT THE DRIVE 


IS SEIZED. 


ISSUE A RELEASE COMMAND THROUGH THE SEIZING PORT; VERIFY THAT THE 


DRIVE SWITCHES TO THE OPPOSITE PORT. 


ISSUE A RELEASE THROUGH THE 


SEQ 0089 
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T22 SEIZE BY RMAS TEST SEQ 0090 


$e OPPOSITE PORT AND VERIFY THAT THE DRIVE IS IN NEUTRAL. 
‘* 
‘: REAR RARERAAEEEEEEEEEEEEEATEEEAEEKEEETEEAHKAKeKKAeeeAeehee As 
027224 TST22: 
027224 005737 001300 ; TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
027230 001406 BEQ 2$ :BR IF NOT 
027232 100002 BPL 1$ :BR_IF JUST ENTERED TEST 
027234 000137 003110 JMP EXEC + URN & GET NEXT sith NUMBER 
027240 012737 177777 001300 18: MOV #-1 ,KYBCTL :SET SINGLE TEST INDICATOR 
0272466 012737 027262 001106 2s: MOV WTEST22,$LPADR ;SETUP SCOPE LOOP ADDRESS 
o575e3 012737 027262 001110 1es122 MOV #TEST22,$LPERR ;SETUP ERROR LOOP ADDRESS 
027262 112737 000022 001102 MOVB #22,$TSTNM sMOVE #22 TO TEST NUMBER 
027270 012706 001100 MOV ASTACK,SP ;LOAD THE STACK POINTER 
740 027274 012737 000031 001176 MOV #25. ,$TIMES ::D0 25. ITERATIONS 
794 
sCLEAR ATTENTION BITS FOR BOTH PORTS 
027302 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT #A 
027310 005060 000012 CLR RMDS (RO) SEIZE THE DRIVE 
027314 012760 000011 000000 MOV W11,RMCS1(RO) ;ISSUE DRIVE CLEAR 
027322 012760 000013 000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
027330 113760 001226 000010 MOVB PORTB,RMCS2(RO) :SELECT PORT #B 
027336 005060 000012 CLR RMDS (RO) SEIZE THE DRIVE  pemnes PORT 'B’ 
027342 012760 000011 000000 MOV M11,RMCS1(RO) [ISSUE DRIVE CLEAR 
027350 012760 000013 000000 MOV W13,RMCS1(RO) RELEASE THE DRIVE 
SELECT DRIVE OTHER THAN THAT BEING TESTED 
027356 113760 001230 000010 MOVB PORTC,RMCS2(RO) ;SELECT DRIVE NOT BEING TESTED 
027364 013737 001224 001242 MOV PORTA, SEIZPT :"SEIZED' PORT ADDRESS 
;WRITE THE DRIVE'S ATTENTION BIT 
027372 013760 001236 000016 MOV ASR1,RMAS(RO) ;WRITE THE + anaes BIT OF THE DRIVE BEING TESTED 
027400 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT 
027406 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
VERIFY THAT EITHER PORT A OR PORT B HAS THE DRIVE 
027414 005760 000012 TST RMDS (RO) ;SEE THE REGISTER THROUGH PORT A ? 
027420 001014 BNE 1$ : F YES 
027422 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
027430 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
27436 005760 000012 TST RMDS (RO) SEE REGISTER THROUGH PORT B ? 
027442 001021 BNE 2$ :BR IF YES 
027444 104042 EMT be 
Os ress 000137 031276 - JMP 4$ sBYPASS REST OF TEST 
027452 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
027460 013737 001226 001240 MOV PORTB,PTNBR : MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
27466 005760 000012 TST RMDS (RO) REGISTER SHOULD BE ZERO THROUGH PORT B 
027472 001002 BNE .+6 :BR IF STATUS REG IS NOT ZERO 
027474 000137 030376 JMP 3$ STATUS REG IS ZERO 
027500 104043 EMT 43 
027502 000137 031276 JMP 4% sBYPASS REST OF TEST 
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;PORT B HAS THE DRIVE. VERIFY THAT PORT A HAS PORT REQUEST SET 


2$: 
CLR CKERR ;CLEAR THE "CHECK ERROR’ INDICATOR 
001126 MOV RMDS(RO),SBDDAT ;GET CONTENTS OF RMDS 
001122 MOV #RMDS ,$B BOADR FORM g na rn tt OF ERROR MESSAGE 
ADD RO, $BDAD R ;ADD RH/RM BASE ADDRESS 
001124 MOV #MOL | PGM'DPRIDRYIVy— $GDDAT oa REGISTER SHOULD BE 
001164 MOV SBDODAT,STMPO :MOVE REGISTER CONTENTS TO ‘$TMPO' 
001164 BIC #°C71760.$TMPO Sy SPECIFIED BITS 
001164 CMP SGDDAT,STMPO os THE BITS 
BEQ 64% ‘BR F OK 
001174 MOV SBDDAT,STMP4 :COPY "BAD DATA‘ 
001174 BIC #71700,STMP4 ;CLEAR THE MASKED BITS 
001124 th ee $GDDAT OR" WITH GOOD DATA FOR TYPEOUT 
648 - CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
001242 MOV PORTB,SEIZPT ;ADDRESS FOR ERROR MESSAGE 
001244 MOV PORTA,OPPRT ;SAME AS ABOVE 
;RELEASE THE DRIVE FROM PORT B 
000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
001240 MOV PORTB,PTNBR : MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
000000 . MOV #13,RMCS1(RO)- ; ISSUE RELEASE THROUGH PORT B 
;VERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT B 
CLR RELERR ;CLEAR "RELEASE ERROR‘ INDICATOR 
001124 MOV WATA!MOL!PGM!DPRIDRY' VV, S$GDDAT ;COMPARISON CONSTANT 
001122 MOV #RMDS, = mt ADDRESS INCREMENT 
ADD RO,$BDA sREGISTER oar ADDRESS FOR TYPEOUT 
000010 MOVB PORTA, RACS2(RO ;SELECT PORT A 
001240 MOV PORTA.PTNBR - MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
001164 MOV RMDS(RO) ,STMPO ;READ fh REGISTER FROM PORT A 
000010 MOVB PORTB,RMCS2(:0) ;SELECT PORT B 
001240 MOV PORTB,PTNBR : MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
001126 MOV RMDS(RO), S$BDDAT ;DRIVE STATUS FROM PORT B 
BEQ 66$ :BR IF STATUS FROM PORT B ZERO 
TST STMPO 31S STATUS FROM PORT A ZERO ? 
BEQ 66$ ‘BR IF ZERO 
EMT 44 
001126 66$: MOV $TMPO,SBDDAT ;CHECK STATUS FROM PORT A 
001240 MOV PORTA,PTNBR ;CHANGE PORT ADDRESS FOR TYPEOQUT 
001126 CMP $GDDAT, $BDDAT ;COMPARE WITH CONSTANT 
BEQ 67% ;BR IF OK 
EMT 27 : 
67%: NOP 
;RELEASE THE DRIVE FROM PORT A 
000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
001240 MOV PORTA,PINBR > MOVE PORT ADDRESS TO LOCATION — TYPEOUT 


000000 MOV W13,RMCSI(RO) ; ISSUE RELEASE THROUGH PORT A 


SEQ 0091 
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T22 SEIZE BY RMAS TEST SEQ 0092 
;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
030030 005037 001254 CLR RELERR SCLEAR THE "RELEASE ERROR ' INDICATOR 
030034 012737 000012 001122 MOV #RMDS ,SBDADR ; FORM THE ADDRESS OF RMDS FOR TYPEOUT 
030042 060037 001122 ADD RO, SBDADR ADD THE 1/0 BASE ADDRESS 
030046 012737 011700 001124 MOV #MOL 'PGM!DPRIDRYI VV, SGDDAT 1 GOMPARI SON CONSTANT 
030054 113760 001224 000010 MOVB  PORTA,RMCS2(RO) :SELECT P 
030062 016037 000012 001170 MOV RMDS(RO),$TMP2 “GET THE ORive "STATUS REGISTER FROM PORT A. 
030070 042737 024001 001170 BIC #PIP!WRL ‘OM, STMP :CLEAR DONT CARES 
030076 013737 001170 001164 MOV STMP2,STMPO sCOPY IT INTO '$ 
030104 042737 100100 001164 BIC WATA'VV,STMPO =: CLEAR PORT DEPENDENT BITS FROM THE COPY 
030112 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT P 
030120 016037 000012 001172 MOV RMDS(RO),$TMP3 :GET THE ORIVE "STATUS REGISTER FROM PORT B. 
030126 042737 024001 001172 BIC #PIP'WRL'OM,STMPS :CLEAR DONT CARES 
030134 013737 001172 001166 MOV $TMP3,STMPI :COPY IT INTO ‘STMP1' 
030142 042737 100100 001166 BIC WATA'VV,STMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
030150 023737 001164 001166 CMP $TMPO,STMP1 :IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
030156 001006 BNE 68$ ‘BR IF NOT 
030160 005737 001164 TST $TMPO TREGISTERS ARE THE SAME: ARE THEY ZERO ? 
030164 001045 BNE 70$ [BR IF NOT 
030166 104046 EMT 46 
030170 000137 03C370 JMP 72$ sBYPASS THE REST OF THE CHECKS 
030174 013737 001170 001126 68%: Mov STMP2,$BDDAT §:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
030202 013737 001226 001240 MOV PORTB,PTNBR iSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
030210 113760 001226 000010 MOVB © PORTBRMCS2(RO) ;SELECT PORT B. 
030216 005737 001164 1ST STMPO SEE IF STATUS EQ 0 FROM PORT A. 
030222 001414 BEQ 69$ “BR IF ZERO 
0302246 013737 001224 001240 MOV PORTA, PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
030232 013737 001172 001126 MOV STMP3,.SBDDAT :"BAD DATA’ FOR ERROR TYPE OUT 
030240 113760 001224 000010 MOVB  PORTA.RMCS2(RO) :SELECT PORT A 
030246 005737 001166 TST STMP1 iSEt i, STATUS "EQ ZERO FROM PORT B. 
030252 001012 BNE 70$ ‘BR at NOT 
030254 012737 177777 (001254 69%: MOV #-1,RELERR “SET. "RELEASE ERROR’ INDICATOR 
030262 012760 000011 090000 MOV #11,RMCS1(RO)  =CLEAR THE DRIVE 
030270 012760 000013 000000 MOV #13.RMCS1(RO)  :RELEASE THE DRIVE 
030276 104026 EMT 26 
030300 013737 001170 001126 70$: Mov STMP2,$BDDAT ; LOOK FOR BIT FAILURES WHEN RMDS READ 
030306 013737 001224 001240 MOV PORTA. PTNBR ;CHANGE PORT NUMBER 
030314 042737 100000 001126 BIC #ATA, $BDDAT ‘DON'T CHECK THE ATTN BIT 
030322 023737 001124 001126 CMP SGDDAT,$BDDAT  :ALL BITS O 
030330 001401 BEQ 71$ :BR IF Ok PROM PORT A. 
030332 104007 EMT 7 
030334 013737 001172 001126 71$: Mov STMP3,$BDDAT |; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
030342 013737 001226 001240 MOV PORTB,PTNBR :CHANGE PORT NUMBER 
030350 042737 100000 001126 BIC #ATA, $BDDAT [DON'T CHECK THE ATTN BIT 
030356 023737 001124 001126 CMP SGDDAT,SBDDAT :SEE IF READ OK FROM PORT B. 
30364 001401 BEQ 72$ :BR IF OK 
030366 104007 EMT 7 
030370 000240 72$: NOP 
030372 000137 031276 JMP 4$ 
;THE DRIVE IS SEIZED BY PORT A. VERIFY THAT PORT B HAS PORT REQUEST SET 
030376 3$: 
030376 113760 001224 000010 MOVB  PORTA,RMCS2(RO) SELECT PORT A 
030406 013737 001224 001240 MOV PORTA.PINBR ;:MOVE PORT ADDRESS TO LOCATION FO R TyPEQUT 
030412 005037 001250 CLR CKERR :CLEAR THE ‘CHECK ERROR' INDICA 
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SEQ 0093 


001126 MOV RMDS(RO),SBDDAT ;GET CONTENTS OF RMDS 
001122 MOV #RMDS, SBDA ADR ;:FORM R REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO, $BDAD sADD RH/RM BASE ADDRESS 
001124 MOV PMOL {PGR 'DPRIDRYIVy SGDDAT ;WHAT REGISTER SHOULD BE 
001164 MOV SBDDAT,STMPO :MOVE REGISTER CONTENTS TO “STMPO' 
001164 BIC #°C71700,$TMPO SAVE SPECIFIED BITS 
001164 CMP SGDDAT,STMPO COMPARE THE BITS 
BEQ 73$ ‘BR IF OK 
001174 MOV SBDDAT,STMP4 = :COPY ‘BAD DATA’ 
001174 BIC #71700,$TMP4 = :CLEAR THE MASKED BITS 
001124 cat * le ,$GDDAT ;"OR' WITH GOOD DATA FOR TYPEOUT 
= CON CKERR 7SET THE REGISTER COMPARE ERROR INDICATOR 
001242 "MOV PORTA,SEIZPT § : ADDRESS FOR ERROR MESSAGE 
001244 MOV PORTB,OPPRT ;SAME AS ABOVE 
;RELEASE THE DRIVE FROM PORT A 
000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT A 
001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
000000 MOV #13, RMCS1(RO) ; ISSUE RELEASE THROUGH PORT A 
;VERIFY THAT DRIVE IS SEIZED BY PORT B WHEN RELEASED BY PORT A 
CLR RELERR :CLEAR "RELEASE ERROR’ INDICATOR 
001124 MOV #ATA'MOL!PGM!DPRIDRY! Vv, SGDDAT eel Ee CONSTANT 
001122 MOV #RMDS, SBDADR :REGISTER ADDRESS INCREMENT 
ADD RO, $BDADR REGISTER BASE ADDRESS FOR TYPEOUT 
000010 MOVB PORTB,RMCS2(RO) °:SELECT PORT B 
001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
001164 MOV RMDS(RO),$TMPO :READ STATUS FREGISTER FROM PORT B 
000010 MOVB PORTA,RMCS2(RO) “;SELECT PORT A 
001240 MOV PORTA,PTNBR = MOVE PORT ADDRESS TO soe FOR TYPEQOUT 
001126 MOV RMDS(RO),SBDDAT ;DRIVE STATUS FROM PORT 
BEQ 75$ BR IF STATUS FROM PORT A * ERO 
TST $STMPO 1S STATUS FROM PORT B ZERO ? 
BEd 738 “BR IF ZERO 
001126 75%: MOV STMPO,SBDDAT ; CHECK STATUS FROM PORT B 
001240 MOV PORTB,PTNBR :CHANGE PORT ADDRESS FOR TYPEOUT 
001126 CMP $GDDAT,$BDDAT sCOMPARE WITH CONSTANT 
BEQ 76$ ‘BR IF OK 
EMT 27 
76$: NOP 
;RELEASE THE DRIVE FROM PORT B 
000010 MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT R 
ZVERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
CLR RELERR :CLEAR THE "RELEASE ERROR * INDICATOR 
001122 MOV WRMDS,SBDADR FORM THE ADDRESS OF RMDS FOR TYPEOUT 


ADD RO, $BDADR :ADD THE 1/0 BASE ADDRESS 
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CZR S 
T22 SEIZE BY RMAS TEST SEQ 0094 

030752 oi eiar 011700 001124 MOV #MOL!PGM!DPRIDRY!VV,$GDDAT ;COMPARISON CONSTANT 
030760 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A. 
030766 016037 000012 001170 MOV RMDS(RO),STMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
030774 042737 024001 001170 BIC #PIP!WRL'OM,STMP2 ;CLEAR DONT CARES 
031002 013737 001170 001164 MOV STMP2,STMPO ;COPY IT INTO ‘$TMPO' 
031010 042737 100100 001164 BIC MATA'VV,STMPO ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
031016 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT 8. 
031024 016037 000012 001172 MOV RMDS(RO),STMP3 -;GET THE DRIVE STATUS REGISTER FROM PORT B. 
031032 042737 024001 001172 BIC #PIP!WRL'OM,$T ps ;CLEAR DONT CARES 
0310460 013737 001172 001166 MOV STMP3,STMP1 :COPY IT INTO ‘'S$TMP1' 
031046 042737 100100 001166 BIC MATA'VV,STMP1 ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
031054 023737 001164 001166 CMP STMPO,STMP1 31S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
031062 001006 BNE 77$ BR IF NOT 
031064 005737 001164 TST $STMPO ;REGISTERS ARE THE SAME: ARE THEY ZERO ? 
031070 001045 BNE 79% BR IF NOT 
031072 104046 EMT 46 
031074 000137 031274 JMP 81$ ;BYPASS THE REST OF THE CHECKS 
031100 013737 001170 001126 /77$: MOV STMP2,$BDDAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
031106 013737 001226 001240 MOV PORTB,PTNBR ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
031114 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 
031122 005737 001164 TST $STMPO ;SEE IF STATUS EQ 0 FROM PORT A. 
031126 001414 BEQ 78$ 3;BR IF ZERO 
031130 013737 001224 001240 MOV PORTA,PTNBR sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
031136 013737 001172 001126 MOV $TMP3,$BDDAT ;"BAD DATA‘ FOR ERROR TYPE OUT 
031144 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A. 
031152 005737 001166 TST STMP1 ;SEE IF STATUS EQ ZERO FROM PORT B. 
031156 001012 BNE 79% :BR IF NOT 
031160 012737 177777 001254 78$: MOV #-1,RELERR ;SET "RELEASE ERROR’ INDICATOR 
031166 012760 000011 000000 MOV #11,RMCS1(RO) ;CLEAR THE DRIVE 
031174 012760 000013 000000 MOV #13,RMCS1(RO) ;RELEASE THE DRIVE 
031202 104026 EMT 26 
031206 013737 001170 001126 79$: MOV STMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
031212 013737 001224 001240 MOV PORTA,PTNBR ;CHANGE PORT NUMBER 
031220 042737 100000 001126 BIC #ATA,SBDDAT :DON'T CHECK THE ATIN BIT 
031226 023737 001124 001126 CMP $GDDAT,$BDDAT ;ALL BITS OK ? 
031234 001401 BEQ 80$ ;BR IF OK FROM PORT A. 
031236 104007 EMT 7? 
031240 013737 001172 001126 80$: MOV STMP3,$BDDAT ;CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
031246 013737 001226 001240 MOV PORTB,PTNBR ;CHANGE PORT NUMBER 
031254 042737 100000 001126 BIC #ATA,SBDDAT ;DON'T CHECK THE ATIN BIT 
031262 023737 001124 001126 CMP $GDDAT,$BDDAT ;SEE IF READ OK FROM PORT B. 
031270 001401 BEQ 81$ 3BR IF OK 
031272 104007 EMT 7 
031274 000240 81$: NOP 

795 031276 000004 4$: SCOPE LOOP ? 

807 

808 Ee PO SSCS S ESSERE SEES ESET ESET ETT TCC C CTC TST S SSS S CLOT aL. 

TPTEST 23 INHIBIT SEIZE BY RMAS TEST 


‘* 
:*VERIFY THAT THE DRIVE IS NOT SEIZED WHEN A ‘ZERO’ IS WRITTEN INTO 
;* THE DRIVE'S ATTENTION BIT. 


‘* 

i* A. SELECT A DRIVE NOT BEING TESTED AND WRITE ALL BITS, EXCEPT THE 
:* BIT OF THE DRIVE BEING TESTED, INTO THE ATTENTION REGISTER. 

-* 
® 


B. VERIFY THAT THE DRIVE IS STILL IN NEUTRAL, 
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CZR 
123 INHIBIT SEIZE BY RMAS TEST SEQ 0095 
*® 
PETITIIITIIIIIIITITTTT IL TTTI LI TTTT TT TTT TTT TTT Tree ieiTi 
031300 1§123: 
031300 005737 001300 TST KYBCTL : PERFORMING ONLY SINGLE TEST ? 
031304 001406 BEQ 2$ IF NOT 
031306 100002 BPL 1$ “BR IF JUST ENTERED TEST 
031310 000137 003110 JMP EXEC [RETURN & GET NEXT TEST NUMBER 
031314 012737 177777 001300 18: MOV #-1, KYBCTL :SET SINGLE TEST INDICATOR 
031322 012737 031336 001106 2$: MOV MTEST23,$LPADR :SETUP SCOPE LOOP ADDRESS 
Oe eee 012737 031336 001110 test23 MOV MTEST23,$LPERR ;SETUP ERROR LOOP ADDRESS 
031336 112737 000023 001102 MOVB #23,$TSTNM sMOVE #23 TO TEST NUMBER 
031344 012706 001100 MOV MSTACK,SP ;LOAD THE STACK POINTER 
at 031350 012737 000031 001176 MOV #25. ,STIMES ::D0 25. ITERATIONS 
824 
;CLEAR ATTENTION BITS FOR BOTH PORTS 
031356 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT #A 
031364 005060 000012 CLR RMDS (RO) sSEIZE THE DRIVE 
031370 012760 000011 000000 MOV #11,RMCS1(RO)  ;ISSUE DRIVE CLEAR 
031376 012760 000013 000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
031404 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT #B 
031412 005060 000012 CLR RMDS (RO) :SEIZE THE DRIVE THROUGH PORT '‘B' 
031416 012760 000011 000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
031424 012760 000013 000000 MOV #13,RMCS1(RO)  :RELEASE THE DRIVE 
031432 113760 001230 000010 MOVB PORTC,RMCS2(RO) ;SELECT DRIVE NOT BEING TESTED 
sWRITE ALL ATTENTION BITS EXCEPT BIT FOR DRIVE UNDER TEST 
031440 013737 001236 001164 MOV ASR1,$TMPO ;STORE ATTN BIT FOR PORT A 
031446 005137 001164 COM STMPO ; COMPLEMENT IT 
031452 013760 001164 000016 MOV STMPO,RMAS(RO) [WRITE THE ATIN REGISTER 
;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
031460 005037 001254 CLR RELERR ;CLEAR THE ‘RELEASE ERROR * INDICATOR 
031464 012737 000012 001122 MOV #RMDS,SBDADR > FORM THE ADDRESS OF RMDS FOR TYPEOUT 
031472 060037 001122 ADD RO, $BDA ADR ADD THE 1/0 BASE ADDRESS 
031476 012737 011700 001124 MOV #MOL 'PGM!DPR!DRYIVV, S$GDDAT ;COMPARISON CONSTANT 
031504 113760 001224 000010 MOVB  PORTA,RMCS2(RO) :SELECT PORT A. 
031512 016037 000012 001170 MOV RMDS(RO), dg “GET THE DRIVE STATUS REGISTER FROM PORT A. 
031520 042737 024001 001170 BIC #PIP'WRL ‘OM, STMP2 :CLEAR DONT CARES 
031526 013737 001170 001164 MOV STMP2,STMPO sCOPY IT INTO '$STMPO' 
031534 042737 100100 001164 BIC #ATA'VV, STMPO ; CLEAR PORT “" BITS FROM THE COPY 
031542 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
031550 016037 000012 001172 MOV RMDS(RO),STMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
031556 042737 024001 001172 BIC #PIP'WRL'OM,STMP3 :CLEAR DONT CARES 
031564 013737 001172 001166 MOV STMP3,STMP1 sCOPY IT INTO ‘STMPI' 
031572 042727 100100 001166 BIC MATA'VV,STMP1 ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
031600 023737 001164 001166 CMP STMPO,STMP1 318 THE ae REGISTER THE SAME FROM BOTH PORTIS ? 
031606 001006 BNE 64$ BR IF 
031610 005737 001164 TST $STMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
031614 001045 BNE 66% ;BR IF NOT 
031616 104046 EMT 46 
031620 000137 032020 JMP 68$ ;BYPASS THE REST OF THE CHECK 
031624 013737 001170 001126 64$: MOV $STMP2,$BDDAT ;SET UP POSSIBLE BAD DATA FOR none MESSAGE 
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031632 013737 001226 001240 MOV PORTB,PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
031640 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT 
031646 005737 001164 TST $TMPO :SEE IF ST ATUS "EQ 0 FROM PORT A. 
021652 001414 BEQ 65$ :BR IF ZERO 
03'654 013737 001224 001240 MOV PORTA, PTNBR ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
031462 013737 001172 001126 MOV STMP3,$BDDAT — : "BAD DATA’ FOR ERROR TYPE OUT 
031670 113760 001224 000010 MOVB  PORTA,RMCS2(RO) :SELECT PORT A. 
031676 005737 001166 TST STMP1 ;SEE IF STATUS EQ ZERO FROM PORT B. 
031702 001012 BNE 66$ :BR IF NOT 
031704 012737 177777 001254 65$: MOV #-1,RELERR ;SET "RELEASE ERROR" INDICATOR 
031712 012760 000011 000000 MOV #11,RMCS1(RO) [CLEAR THE DRIVE 
031720 012760 000013 000000 MOV #13,RMCS1(RO) [RELEASE THE DRIVE 
031726 104021 EMT 21 
031730 013737 001170 001126 66$: MoV STMP2,$BDDAT § ;LOOK FOR BIT FAILURES WHEN RMDS READ 
031736 013737 001224 001240 MOV PORTA, PTNBR CHANGE PORT NUMBER 
031744 042737 100000 001126 BIC WATA, SBDDAT :DON'T CHECK THE ATIN BIT 
031752 023737 001124 001126 CMP $GDDAT,SBDDAT ALL BITS OK 
031760 001401 BEQ 67$ :BR IF OK FROM PORT A 
031762 104007 EMT ? 
031764 013737 001172 001126 67$: MoV STMP3,$BDDAT = ;CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
031772 013737 001226 001240 MOV PORTB,PTNBR CHANGE PORT NUMBER 
32000 042737 100000 001126 BIC #ATA,S$BDDAT :DON'T CHECK THE ATIN BIT 
032006 023737 001124 001126 CMP $GDDAT,$BDDAT :SEE IF READ OK FROM PORT B. 
032014 001401 BEQ 68$ :BR IF OK 
032016 104007 EMT 7 
032020 000240 68$: NOP 
032022 000004 SCOPE ;LOOP ? 
825 
B44 
845 es ARRAS SARS R SS RRRRSRRSEREEE ESE ESE SESE SESESSSESELEOOSLLCALACLLE SS Fe ey 
TEST 24 SET PORT 'A* REQUEST TEST 
:*VERIFY THAT WRITING A DRIVE REGISTER SETS "PORT REQUEST’ WHEN THE 
; DRIVE IS SEIZED BY THE OTHER PORT 
:* A. SEIZE THE DRIVE THROUGH PORT ‘B’ BY WRITING O'S INTO RMDS. 
:* B. WRITE O'S INTO RMDS FROM PORT 'A': VERIFY THAT THE DRIVE IS STILL 
ie SEIZED BY PORT 'B’. 
:* (C. ISSUE A RELEASE COMMAND FROM PORT 'B' AND VERIFY THAT THE DRIVE 
if SWITCHED TO PORT 'A’. VERIFY THAT THE ATTENTION BIT IS SET FOR 
ie PORT 'A' AND IS NOT SET FOR PORT 'B'. 
:* D. ISSUE A RELEASE COMMAND THROUGH PORT 'A' AND VERIFY THAT THE DRIVE 
ie RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 
ts LARBRRSSASRSSASARASSESERERSERERESERESESE EE SESESOOSESASESESOLASSaLSE SE © 
032024 15124: 
032024 005737 001300 TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
032030 001406 BEQ 2$ :BR IF NOT 
032032 100002 BPL 1$ :BR_IF JUST ENTERED TEST 
032034 000137 003110 JMP EXEC RETURN & GET NEXT TEST NUMBER 
032040 012737 177777 001300 18: MOV #-1,KYBCTL :SET SINGLE TEST INDICATOR 
032046 012737 032062 001106 2%: MOV #TEST24,$LPADR :SETUP SCOPE LOOP ADDRESS 
32054 012737 032062 001110 #TEST24,$LPERR :SETUP ERROR LOOP ADDRESS 


0 MOV 
032062 TEST24: 
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CZRMRAO RMO5/3/2 DU PO 
124 SET PORT ‘A* REQUEST TEST SEQ 0097 
032062 112737 000024 001102 MOVB #24, $TSTNM ;MOVE #24 TO TEST NUMBER 
032070 012706 001100 MOV MSTACK,SP ;LOAD_ THE STACK POINTER 
Ks 032074 012737 000031 001176 MOV #25. ,$TIMES :;D0 25. ITERATIONS 
875 
:CLEAR ATTENTION BITS FOR BOTH PORTS 
032102 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT #A 
032110 005060 000012 CLR RMDS (RO) SEIZE THE DRIVE 
032114 012760 000011 000000 MOV M11,RMCS1(RO) ;ISSUE DRIVE CLEAR 
032122 012760 000013 000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
032130 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT #B 
032136 005060 000012 CLR RMDS (RO) sSEIZE THE ah ee PORT ‘'B' 
032142 012760 000011 000000 MOV M11,RMCS1(RO) [ISSUE DRIVE CLEAR 
032150 012760 000013 000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
SEIZE THE DRIVE THROUGH PORT B 
032156 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
032164 013737 001226 001242 MOV PORTB,SEIZPT ;STORE SEIZING PORT'S ADDRESS 
032172 005060 000012 CLR RMDS (RO) WRITE RMDS 
032176 013737 001224 001244 MOV PORTA,OPPRT ; OPPOSITE’ PORT ADDRESS 
032204 113760 001224 000010 MOVB PORTA,RMCS2(RO) ";SELECT PORT A 
032212 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
;SET PORT REQUEST 
032220 005060 000012 CLR RMDS (RO) ;SET PORT REQUEST FOR PORT A 
;RELEASE THROUGH PORT B. DRIVE SHOULD SWITCH TO PORT A, 
RELEASE THE DRIVE FROM PORT B 
032224 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
032232 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
032240 012760 000013 000000 MOV W13,RMCS1(RO) ;1SSUE RELEASE THROUGH PORT B 
VERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT B 
032246 005037 001254 CLR RELERR CLEAR "RELEASE ERROR’ INDICATOR 
032252 012737 117700 001124 MOV MATA!MOL!PGM!DPR!DRY!VV,SGDDAT ;COMPARISON CONSTANT 
032260 012737 000012 001122 MOV #RMDS ,SBDADR ae? tt ADDRESS INCREMENT 
322 060037 001122 ADD RO,$BDADR sREGISTER A... ADDRESS FOR TYPEOUT 
032272 113760 001224 000010 MOVB PORTA,RMCS2(RO) ';SELECT PORT A 
0323 013737 001224 001240 MOV PORTA,PTNBR : MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
032306 016037 000012 001164 MOV RMDS(RO),STMPO ;READ STATUS _, FROM PORT A 
032314 113760 061226 000010 MOVB a4 g RMCS2(RO) ";SELECT PORT B 
032322 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS 10 coy FOR TYPEOUT 
032330 016037 000012 001126 MOV RMDS(RO),$BDDAT ;DRIVE STATUS FROM PORT A. 
032556 001404 BEQ 66% ;BR IF STATUS FROM PORT 8 oO 
032340 005737 001164 TST $STMPO 31S STATUS FROM PORT A ZERO ? 
032344 001401 BEQ 66% :BR IF ZERO 
032346 104031 EMT 31 
032350 013737 001164 001126 668: MOV STMPO,$BDDAT CHECK STATUS FROM PORT A 
032356 013737 001224 001240 MOV PORTA,PINBR CHANGE PORT ADDRESS FOR TYPEQUT 
032364 023737 001124 001126 CMP SGDDAT,S$BDDAT ;COMPARE WITH CONSTANT 
032372 001401 BEG 67% :BR IF OK 
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SET PORT *A* REQUEST TEST SEQ 0098 
032374 104027 EMT 27 
032376 000240 67$: NOP 
032400 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
032406 013737 001226 001240 MOV PORTB. PTNBR Move +4 ADDRESS TO LOCATION FOR TYPEOUT 
032414 005037 001250 CLR CKERR CLEAR THE ‘CHECK ae pl INDICATOR 
032420 016037 000012 001126 MOV ty LF ++ a iss CONTENTS OF RMDS 
032426 012737 000012 001122 MOV WRMDS,SBOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
032434 060037 001122 ADD RO, SBDADR ;ADD_RH/RM BASE ADDRESS 
032440 005037 001124 CLR SGDDAT WHAT REGISTER SHOULD BE 
032444 013737 001126 001164 MOV SBDDAT,STMPO :MOVE REGISTER os TO 'STMPO' 
032452 042737 077777 001164 BIC #*CATA,STMPO ; SAVE Banik BIT 
032460 023737 001124 001164 CMP SGDDAT ,STMPO COMPARE THE Bits: 
032466 001414 BEQ 688 BR IF OK 
032470 013737 001126 001174 MOV SBODAT ,STMP4 :COPY ‘BAD DATA‘ 
032476 042737 100000 001174 BIC MATA, STMPS :CLEAR THE MASKED BITS 
032504 053737 001174 001124 BIS STMP4 ,SGDDAT :'OR* WITH GOOD DATA FOR TYPEOUT 
032512 104016 EMT 16 
032514 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
032520 000240 68$: NOP 
032522 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
032530 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
032536 005037 001250 CLR CKERR ;CLEAR THE "CHECK ERROR' INDICATOR 
032542 016037 000012 001126 MOV RMDS (RO) ees ;GET CONTENTS OF RMDS 
032550 012737 000012 001122 MOV #RMDS , SBDADR ORM REGISTER ADDRESS OF ERROR MESSAGE 
032556 060037 001122 ADD RO, $BDADR ADD RH/RM BASE ADDRESS 
032562 012737 100000 001124 MOV WATA,SGDDAT ;WHAT REGISTER SKOULD BE 
032570 013737 001126 001164 MOV SBDDAT ,$TMPO sMOVE REGISTER CONTENTS TO ‘$TMPO' 
032576 042737 077777 001164 BIC #*CATA,STMPO ; SAVE ae tik wits 
032604 023737 001124 001164 CMP $GDDAT,$TMPO COMPARE THE BITS 
032612 001414 BEQ 70$ :BR_IF OK 
032614 013737 001126 001174 MOV SBDDAT, STMP4 :;COPY "BAD DATA’ 
032622 042737 100000 001174 BIC HATA, STMPG :CLEAR THE MASKED BITS 
032630 053737 001174 001124 BIS STMP4,SGDDAT :*OR* WITH GOOD DATA FOR TYPEQUT 
032636 104016 EMT 16 
032640 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
032644 000240 70$: NOP 

sRELEASE THE DRIVE FROM PORT A 
032646 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
032654 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
032662 012760 000013 000000 MOV W13,RMCS1(RO)  ;ISSUE RELEASE THROUGH PORT A 

VERIFY THAT THE DRIVE 1S STILL IN NEUTRAL 
032670 005037 001254 CLR RELERR :CLEAR THE "RELEASE ERROR ' INDICATOR 
032674 012737 000012 001122 MOV WRMDS ,SBDADR :FORM THE ADDRESS OF RMDS FOR TYPEOUT 
032702 060037 001122 ADD RO, SBDADR s;ADD_ THE 1/0 BASE ADDRESS 
032706 012737 011700 001124 MOV #MOL !PGM'DPR!DRY ‘VV, SGDDAT athens CONSTANT 
032714 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT 
032722 016037 000012 001170 MOV RMDS(RO),S$TMP2 :GET THE DRIVE "STATUS REGISTER FROM PORT A. 
032730 042737 024001 001170 BIC #PIP!WRL ‘OM, STMP2 CLEAR DONT CARES 
032736 013737 001170 001164 MOV STMP2,$TMPO ;COPY IT INTO '$TMPO' 
032744 042737 100100 001164 BIC WATA'VV,STMPO =; CLEAR PORT oem BITS FROM THE COPY 
032752 113760 001226 000010 MOVB PORTB,RMCS2(RO) :SELECT PORT B. 
032760 016037 000012 001172 MOV RMDS(RO),$TMP3  :GET THE DRIVE STATUS REGISTER FROM PORT B. 
032766 042737 024001 001172 BIC #PIP!WRL ‘OM, STMP3 CLEAR DONT CARES 
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PORT 'A* REQUEST TEST SEQ 0099 
032774 013737 001172 001166 MOV STMP3,STMP1 :COPY IT INTO ‘STMP}' 
033002 042737 100100 001166 BIC WATA‘VV,S$TMP1 [CLEAR PORT DEPENDENT BITS FROM THE COPY 
033010 023737 001164 001166 CMP $TMPO,STMP1 s1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
033016 001006 BNE 72% ;BR IF NOT 
033020 005737 001164 TST $TMPO sREGISTERS ARE THE SAME: ARE THEY ZERO ? 
033024 001045 BNE 74$ ;BR IF NOT 
033026 104046 EMT 46 
033030 000137 033214 JMP 76$ sBYPASS THE REST OF THE CHECKS 
033034 013737 001170 001126 728: MOV STMP2,SBDDAT ;SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
033042 013737 001226 001240 MOV PORTB,PTNBR :SEIZING ont IF TEST SHOWS DRIVE NOT IN NEUTRAL 
033050 113760 001226 000010 MOvB PORTB,RMCS2(RO) ;SELECT 
033056 005737 001164 TST $TMPO sSEE IF STATUS. EQ 0 FROM PORT A 
033062 001414 BEQ 73$ BR IF ZERO 
033064 013737 001224 001240 MOV PORTA,PTNBR sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
033072 013737 001172 001126 MOV STMP3,$BDDAT "BAD DATA' - ERROR TYPE OUT 
033100 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT 
033106 005737 001166 TST STMP1 sSEE IF STATUS” EQ ZERO FROM PORT B. 
033112 001012 BNE 74$ :BR IF NOT 
033114 012737 177777 001254 738: MOV #-1,RELERR :SET "RELEASE ERROR’ INDICATOR 
033122 012760 000011 000000 MOV M11,RMCS1(RO) [CLEAR THE DRIVE 
033130 012760 000013 000000 MOV M13,RMCSI1(RO) ;RELEASE THE DRIVE 
033136 104026 EMT 26 
033140 013737 001170 001126 74$: MOV STMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
033146 013737 001224 001240 MOV PORTA,PTNBR CHANGE PORT NUMBER 
033154 023737 001124 001126 CMP SGDDAT,$BDDAT :ALL BITS OK ? 
033162 001401 BEQ 75$ :BR IF OK FROM PORT A, 
033164 104007 EMT 7 
033166 013737 001172 001126 75$: MOV STMP3,$BDDAT CHECK RMDS FOR BIT FAILURES = FROM PORT B. 
033174 013737 001226 001240 MOV PORTB,PTNBR CHANGE PORT NUMBER 
033202 023737 001124 001126 CMP SGDDAT,SBDDAT ;SEE IF READ OK FROM PORT B. 
033210 001401 BEQ 76$ :BR IF OK 
033212 104007 EMT 7 
033214 000240 76$: NOP ; 
033216 000004 1$: SCOPE ; ;LOOP ? 
876 
895 
896 2 Pee eee eee eee eee eee Kee heen eneneeRteneeeteeeee 
TEST 25 SET PORT 'B' REQUEST TEST 


:*VERIFY THAT WRITING A DRIVE REGISTER + Ne "PORT REQUEST’ WHEN THE 
DRIVE IS SEIZED BY THE OTHER PORT 


A. SEIZE THE DRIVE THROUGH PORT ‘A’ By WRITING O'S INTO RMDS. 


3. WRITE 0°S INTO 7 FROM PORT ‘B’; VERIFY THAT THE DRIVE IS STILL 
SEIZED BY PORT 


C. ISSUE A RELEASE COMMAND FROM PORT ‘A* AND VERIFY 1 
SWITCHED TO PORT 'B'. VERIFY THAT ag ATTENTION B 
PORT "B' AND IS NOT SET FOR PORT ‘A' 


D. ISSUE A RELEASE COMMAND THROUGH PORT 'B* AND VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


HAT THE DRIVE 
IT 1S SET FOR 


SRO eteketeteeeeeeetneteteteeteeeeeenes 


033220 125: 
033220 005737 001300 TST KYBCTL ;PERFURMING ONLY SINGLE TEST ? 


us"; @ ee eeneeeeeesF 


Be Be Be Be Be Be Be Be Be Be Be Be Bs 
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CZR 
125 SET PORT 'B' REQUEST TEST SEQ 0100 
033224 001406 BEQ 2$ ;BR IF NOT 
033226 100002 BPL 1$ ‘BR IF JUST ENTERED TEST 
033230 000137 003110 JMP EXEC [RETURN & GET NEXT TEST NUMBER 
033234 012737 177777 001300 1%: MOV #-1, KYBCTL [SET SINGLE TEST INDICATOR 
033242 012737 033256 001106 2$: MOV MTEST25,$LPADR ;SETUP SCOPE LOOP ADDRESS 
TEEN 012737 033256 001110 1EST25 MOV MTEST25,$LPERR ;SETUP ERROR LOOP ADDRESS 
033256 112737 000025 001102 " MOVB «#25, STSTNM ;MOVE #25 TO TEST NUMBER 
033264 012706 001100 MOV WSTACK,SP ;LOAD THE STACK POINTER 
an 033270 012737 000031 001176 MOV #25. STIMES £:D0 25. ITERATIONS 
898 
;CLEAR ATTENTION BITS FOR BOTH PORTS 
033276 113760 001224 000010 MOVB PORTA, RMCSZ(RO) ;SELECT PORT #A 
033304 005060 000012 CLR RMDS (RO) 'SEIZE THE DRIVE 
033310 012760 000011 000000 MOV W11,RMCS1(RO) ISSUE DRIVE CLEAR 
033316 012760 000013 000000 MOV #13,RMCS1(RO) [RELEASF THE DRIVE 
033324 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT #B 
033332 005060 000012 CLR RMDS (RO) ;SEIZE THE DRIVE THROUGH PORT ‘'B' 
033336 012760 000011 000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
033344 012760 000013 000000 MOV #13-RMCS1(RO)  :RELEASE THE DRIVE 
s;SEIZE THE DRIVE THROUGH PORT A 
033352 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT A 
033360 013737 001224 001242 MOV PORTA,SEIZPT ;STORE tthe PORT'S ADDRESS 
033366 005060 000012 CLR RMDS (RO) ;WRITE RMDS 
033372 013737 001226 001244 MOV PORTB,OPPRT ; 'OPPOSITE' + ADDRESS 
033400 113760 001226 000010 MOVB  PORTB-RMCS2(RO) ‘sSELECT PORT B 
033406 013737 001226 001240 MOV PORTB,PTNBR = MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
;SET PORT REQUEST 
033414 005060 000012 CLR RMDS (RO) ;SET PORT REQUEST FOR PORT B 
;RELEASE THROUGH PORT A. DRIVE SHOULD SWITCH TO PORT B. 
;RELEASE THE DRIVE FROM PORT A 
033420 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
033426 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
033434 012760 000012 000000 MOV #13,RMCSI1(RO) ;ISSUE RELEASE THROUGH PORT A 
; VERIFY THAT DRIVE IS SEIZED BY PORT B WHEN RELEASED BY PORT A 
033442 005037 001254 CLR RELERR ;CLEAR "RELEASE ERROR’ INDICATOR 
033446 012737 111700 001124 MOV #ATA‘MOL !PGM!DPR'DRY! VV, $GDDAT TS ony CONSTANT 
033454 012737 000012 001122 MOV #RMDS,SBDADR +REGISTER ADDRESS INCREMENT 
033462 060037 001122 ADD RO, $BDADR sREGISTER BASE ADDRESS FOR TYPEOUT 
033466 113760 001226 000010 MOVB  PORTB,RMCSZ<RO) ‘:SELECT PORT B 
033474 013737 001226 001240 MOV PORTB.PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
033502 016037 000012 001164 MOV RMDS(RO), $Tmp6 ;READ ee mgGistes FROM PORT B 
033510 113760 001224 000010 MOVB  PORTA,RMCS2(RO) ‘:SELECT P 
033516 013737 001224 001240 MOV PORTA, PTNBR = MOVE PORT abbRese TO note FOR TYPEOUI 
033524 016037 000012 001126 MOV RMDS (RO) ,SBDDAT ;DRIVE STATUS FROM PORT 
033532 001404 BEQ 66% :BR IF STATUS FROM PORT ” ZERO 


ZR 
T25 


034040 


034042 
034050 
034056 
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JINNO™N 
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me—ONNNE NS 

WW 
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MRAO oy gt DU POR TST 1 
T PORT "B' REQUEST TEST 


001164 


001174 
001250 
001226 


001124 
001126 
100000 
001174 


001250 
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001164 
001174 


001124 


000010 
001240 
000000 


001122 


001124 
000010 


67$: 


68$: 


70$: 


RELEASE THE DRIVE FROM PORT B 


PORTB,RMCS2(RO) 
:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


VERIFY 


MOVB 
MOV 
MOV 


SEQ 0101 
$STMPO :1S STATUS FROM PORT B ZERO ? 
he ;BR IF ZERO 
STMPO,$BDDAT ;CHECK STATUS FROM PORT B 
PORTB,PTNBR ;CHANGE PORT ADDRESS FOR TYPEOUT 
SGDDAT,SBDDAT ;COMPARE WITH CONSTANT 
67$ ;BR IF OK 
27 
PORTA,RMCS2(RO) ;SELECT PORT A 


PORTA,PTNBR 
CKERR 


RMDS(RO),SBDDAT — 


#RMDS , SBDADR 
RO, $BDADR 
$GDDAT 
SBDDAT,STMPO 


#*CATA,STMPO 
$GDDAT,$TMPO 


68 

SBDDAT ,STMP4 
MATA, STMPS 
cannons 


CKERR 


PORTB,RMCS2(RO) 


tts »PTNBR 


CK ; 
RMDS(RO), fee sein 


#RMDS ,SBDADR 
RO, $BDADR 
HATA, SGDDAT 
SBDDAT,$TMPO 
#*CATA,STMPO 
SGDDAT,STMPO 
70$ 


SBDDAT,STMP4 
MATA, STMPS 
 ealaatementaani 


CKERR 


PORTB,PTNBR 


#13,RMCS1(RO) 


; Move sry ADDRESS TO LOCATION FOR TYPEOUT 
;CLEAR THE ‘CHECK se ll INDICATOR 
GET CONTENTS OF 
; FORM REGISTER AoDRESs oF ERROR MESSAGE 
ADD RH/RM BASE = ;s 

WHAT REGISTER SHOULD BE 

:MOVE REGISTER CONTENTS TO *STMPO' 
;SAVE SPECIFIED BITS 

;COMPARE THE BITS 

:BR_IF OK 

;COPY ‘BAD DATA’ 

:CLEAR THE MASKED B11S 

:'OR* WITH GOOD DATA FOR TYPEOUT 


SET THE REGISTER COMPARE ERROR INDICATOR 


; SELECT PORT B 
sMOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
;CLEAR THE "CHECK ne ag INDICATOR 
;GET CONTENTS OF RMDS 
M REGISTER ADDRESS OF ERROR MESSAGE 
ADD RH/RM BASE ADDRESS 
sWHAT REGISTER SHOULD BE 
;MOVE REGISTER CONTENTS TO ‘STMPO' 
SAVE SPECIFIED BITS 
OM “_ ® THE BITS 


:BR IF 

;COPY "BAD DATA’ 

:CLEAR THE MASKED BITS 

:'OR' WITH GOOD DATA FOR TYPEOUT 


SET THE REGISTER COMPARE ERROR INDICATOR 


;SELECT PORT B 
ISSUE RELEASE THROUGH PORT B 


THAT THE DRIVE IS STILL IN NEUTRAL 


RELERR 
#RMDS , SBDADR 
RO,$BDADR 


#MOL PGM“DPR! DRY VV »$GDDAT 
PORTA,RMCS2(RO) 


CLEAR THE ‘RELEASE ERROR ‘ INDICATOR 
i FORM THE ADDRESS OF RMDS FOR TYPEOUT 
THE 1/0 BASE ADDRESS 
vatican CONSTANT 
;SELECT PORT A. 


CZR 
T25 


MRAOQ ay pe tk DU POR TST 1 


902 
920 


o nw 
ooooo m 
VS WANINID — SONNY SW 
NMNEAOLNOLSVUFSOONMLOONWS 


w 
o 


lofelefleloe rR lolelelo) 
TE et Ba ast 


WO WW WOW 


NN NN | NN NOOON UNO NNE NON 


onNn——OOnN—— 


T PORT 'B* REQUEST TEST 


00001 


001166 


177777 
000011 
000013 


001170 
001224 
001124 


001172 
001226 
001124 
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lejeflelelelolelelolo) 
ooooooocone 
2 4 3 OH HH 
— 3 OO Ss SS 
AAAS NN HOON 
AASMNMIOFL LFOO 


001126 
001240 
000010 


001240 
001126 
000010 


001254 
000000 
000000 


001126 
001240 
001126 


001126 
001240 
001126 


MOV RMDS (RO) ,STMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
(OM, STMP2 LEAR DONT CARES 


sCOPY IT INTO *STMPO' 
BIC WATA'VV,STMPO CLEAR "Soa — BITS FROM THE COPY 
MOVB PORTB,RMCS2(RO) : :SELECT PO T B. 


MOV RMDS (RO), STMP3 T THE DRIVE bald — FROM PORT B. 
BIC #PIP!WRL'OM, STMP ; CLEAR fall CARES 
MOV STMP3,STMP1 ;COPY IT INTO ‘STM 


BIC HATA‘ VV, STMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
CM? orero. ,STMP1 1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 


BNE ;BR IF NOT 
TST $TMPO sREGISTERS ARE THE SAME: ARE THEY ZERO ? 
BNE 74$ ;BR IF NOT 
EMT 46 
JMP 76$ ;BYPASS THE REST OF THE CHECKS 

72$: MOV STMP2,$BDDAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
MOV PORTB,PTNBR ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 
TST $TMPO ;SEE IF STATUS EQ 0 FROM PORT A 
BEQ 73$ :BR IF ZERO 
MOV PORTA,PTNBR ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOV STMP3,$BDDAT ;"BAD DATA‘ oT ERROR TYPE OUT 
MOVB PORTA,RMCS2(RO) ;SELECT PORT A. 
TST STMP1 SEE IF STATUS EQ ZERO FROM PORT B. 
BNE 74$ “BR IF NOT 

73$: MOV #-1,RELERR :SET "RELEASE ERROR" INDICATOR 
MOV #11,RMCS1(RO) ;CLEAR THE DRIVE 
ay acerca TRELEASE THE DRIVE 

74$: MOV STMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
MOV PORTA,PTNBR ; CHANGE PORT NUMBER 
CMP $GDDAT,S$BDDAT TALL BITS OK ? 
ear 3;BR IF OK FROM PORT A. 

75$: MOV $TMP3,$BDDAT ;CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
MOV PORTB,PTNBR ; CHANGE PORT NUMBER 
CMP $GDDAT,$BDDAT ;SEE IF READ OK FROM PORT B. 
BEQ 76% :BR IF OK 
EMT 7 

76$: NOP 

1$: SCOPE ;LOOP ? 

PRR Kee 
: TEST 26 TEST RESET ATTENTION ‘A* BY DRIVE CLEAR 


:*VERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT OF THE 


Be Be Be Be Be Be Be Be Be Be 
es es ® ® ®# ee 2 2S 


> 


oO @w 
. . 


SEIZING PORT. 
at EACH PORT 'S ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 


SEIZE THE DRIVE THROUGH PORT ‘A‘ BY WRITING 0'S INTO RMDS. 
ISSUE A DRIVE CLEAR COMMAND. 


SEQ 0102 
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126 TEST RESET ATTENTION ‘A’ BY DRIVE CLEAR SEQ 0103 


;* D. RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE ATTENTION 
:* BIT FOR PORT 'A' HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 
:* "B’ IS STILL SET. 
“* 
‘: LARBRBRRSAASAERSSASEERESEAESEREASEE SESE ESE EERE REESE CRESS ASSES ESSE ESS 
034414 1$126: 
034414 005737 001300 TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
034420 001406 BEQ 2$ BR IF NOT 
034422 100002 BPL 1$ :BR IF JUST ENTERED TEST 
034424 000137 003110 JMP EXEC RETURN & GET NEXT TEST NUMBER 
034430 012737 177777 001300 18: MOV #1, KYBCTL ;SET SINGLE TEST INDICATOR 
034436 012737 034452 001106 28: MOV WTEST26,$LPADR SETUP SCOPE LOOP ADDRESS 
034444 012737 034452 001110 i WTEST26,$LPERR ;SETUP ERROR LOOP ADDRESS 
034452 112737 000026 001102 MOVB #26, $TSTNM ;MOVE #26 TO TEST NUMBER 
034460 012706 001100 MOV WSTACK, SP :LOAD_THE STACK POINTER 
923 Osns64 012757 000051 001176 MOV #25. ,STIMES :;D0 25. ITERATIONS 
956 
;SET ATTENTION BITS FOR BOTH PORTS 
034472 113760 001224 000010 MOVB = PORTA, RMCS2(RO) ;SELECT PORT 64$ 
034500 005760 000012 66$: ‘TST RMDS (RO) ;MAKE SURE DRIVE AVAILABLE 
034504 001775 BEQ 66$ 
034506 012760 177777 000014 MOV #-1,RMERT(RO)  ;FORCE ERRORS 
034514 005060 000014 CLR RMER1 (RO) CLEAR THE ERRORS 
034520 013760 001226 000010 Mov PORTB,RMCS2(RO) ;SELECT THE OTHER PORT 
034526 005760 000012 64%: ‘TST RMDS (RO) WAIT FOR DRIVE TO TIMEOUT 
034532 001775 BEQ 64$ BR IF DRIVE HASN'T TIMED OUT 
034534 012760 177777 000014 MOV #1 -RMERT(RO) FORCE ERRORS ON PORT 65S 
034542 005060 000014 CLR RMER1 (RO) CLEAR THE ERRORS 
034546 113760 001224 000010 MOVB PORTA, RMCS2(RO) i SELECT PORT ''64$' AGAIN 
034554 005760 000012 65$: ‘TST RMDS (RO) WAIT FOR DRIVE TO TIMEOUT 
034560 001775 BEQ 65$ SBR IF DRIVE HASN'T TIMED OUT 
;CONFIRM THAT BOTH ATTENTION BITS ARE SET 
034562 113760 001224 000010 MOVB  PORTA,RMCS2(RO) ;SELECT PORT A 
034570 013737 001224 001240 MOV PORTA,PTNBR MOVE PORT ADDRESS 10 LOCATION FOR TYPEQUT 
034576 005037 001250 CLR CKERR :CLEAR THE. "CHECK ERROR’ INDICATOR 
034602 016037 000012 001126 MOV RMDS(RO) .SBDDAT |GET CONTENTS OF _RMDS 
034610 012737 000012 001122 MOV WRMDS,SBOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
034616 060037 001122 ADD RO, SBDADR ADD RH/RM BASE ADDRESS 
034622 012737 100000 001124 MOV WATA,SGDDAT WHAT REGISTER SHOULD BE 
034630 013737 001126 001164 MOV SBDDAT STMPO OVE REGISTER CONTENTS TO ‘STMPO" 
034636 042737 077777 001164 BIC F*CATACSTMPO ;SAVE SPECIFIED BITS 
034644 023737 001124 001164 CMP $GDDAT.STMPO ° ;COMPARE THE BITS 
034652 001414 BEQ 67$ BR IF OK 
034654 013737 001126 001174 MOV $BDDAT,STMP4 = :COPY “BAD DATA’ 
034662 042737 100000 001174 BIC HATA, STMP4 :CLEAR THE MASKED BITS 
034670 053737 001174 001124 BIS STMP4,$GDDAT ; OR’ WITH GOOD DATA FOR TYPEOUT 
034676 104010 EMT 
034700 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
34704 000240 67%: NOP 
034706 005737 001250 TST CKERR {MAS ATIN BIT FOR PORT A SET ? 
034712 001402 BEQ +6 BR IF IT W 
034714 000137 036106 JMP is {BYPASS REST OF TEST IF NOT 


—— art heh: DU POR TST 1 


OU SwWwhvn—o 


T RESET 
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oo 
oo 


ooo ooCoo oO 
ooo ooCooo oO 
SPP FEES MO CO 


000010 
001242 


000010 


001126 
001122 
001126 


000010 


001166 
001164 


001164 
001164 


000000 


TTENTION ‘A’ BY DRIVE CLEAR 
MOVB aed F ied tae 


MOV RTB,PTNBR 
Ck KERR 


MOV RMDS ,$ SBDADR 
RO. $ 


MOV WATA, SGDDAT 

MOV SBDDAT , STMPO 

BIC #*CATA,STMPO 

CMP $600.1, STMPO 
698 


MOV SBODAT ,STMP4 
BIC #ATA,STMPG 
BIS eee 


EMT 

COM CKERR 
69$: NOP 

TST CKERR 

BEQ +6 

JMP is 


SEQ 0104 


“SELECT PORT B 
:MOvE P ORT ADDRESS TO LOCATION FOR TYPEOUT 
THE "CHECK ERROR’ INDICATOR 


:CL EAR 
MOV tg SBDDAT ;GET CONTENTS OF R 


MDS 
; FORM REGISTER rg tt OF ERROR MESSAGE 
ADD _RH/RM BASE ADDRESS 
: WHAT oe Asate SHOUL D BE 
MOVE REGISTER CONTENTS TO ‘STMPO' 
SAVE ALAS BITS 
COMPARE THE 
:BR K 
:COPY "BAD DATA’ 
;CLEAR THE MASKED BITS 
:'OR' WITH GOOD DATA FOR TYPEOUT 
sSET THE REGISTER COMPARE ERROR INDICATOR 


:WAS ATTN BIT FOR PORT B SET ? 
:BR_ IF IT WAS 
sBYPASS REST OF TEST IF NOT 


:SEIZE THE DRIVE THROUGH PORT A 
MOVB PORTA,RMCS2(RO) ;SELECT PORT 


MOV perch SEIZPT 
CLR RMDS (RO) 


; STORE ig thy PORT’ S ADDRESS 
TE RMDS 


7 WRI 
MOVB PORTB,RMCS2(RO) ;SELECT PORT B 


MOV PORTB, ab 

MOV PORTB ,OPPRT 

MOV RMDS (RO) ,SBDDA 

MOV RO, $BDADR 

ADD #RMDS, SBDADR 
$GDDAT 


:MOvE PORT ADDRESS TO LOCATION FOR TYPEOUT 

:'OPPOSITE’ PORT ADDRESS 

; SEE IF DRIVE SEIZED BY PORT A 

RH/RM BASE ADDRESS 

: GENERATE BAD REGISTER ADDRESS 

REGISTER SHOULD BE ZERO 

:1S THE REGISTER ZERO 

:BR IF IT IS 


:BYPASS REST OF THE SUBTEST 


;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


MOV RMDS(RO), ,SB0DAT sSEE IF rates PORT SEES CORRECT STATUS 


R DONT CARE BITS 


DDA L 
MOV #MOL!PGM'DPR'DRY! VV, SGDDAT gy STATUS 


sUSE GOOD DATA AS A MASK 
COMPLEMENT THE EXPECTED STATUS ; 
:SAVE THE ACTUAL ne US 
:CLEAR UNWANTED BITS 
ARE THE EXPECTED STATUS BITS SET ? 
;BR IF THEY ARE 


CLR DDA 
CMP $GDDAT, SBDDAT 
BEQ 71$ 
EMT 4 
JMP 1$ 
71$: 
MOVB  PORTA,RMCS2(RO) SELECT PORT A 
MOV PORTA.PTNBR 
BIC #OM'PIP,$ 
MOV SGDDAT, STMP1 
COM STMP1 
MOV SBDDAT, $TMPO 
BIC $TMP1,$TMPO 
CMP S$GDDAT, $TMPO 
BEQ 72$ 
EMT 
72$: NOP 


ISSUE DRIVE CLEAR COMMAND TO PORT A 


MOV #11,RMCS1(RO) 


:DO A DRIVE CLEAR COMMAND 


VERIFY THAT ATTENTION BIT FOR PORT A CLEARED 
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TEST RESET ATTENTION 'A* BY DRIVE CLEAR SEQ 0105 
035270 005037 001250 CLR CKERR ;CLEAR THE ‘CHECK ERROR’ INDICATOR 
035274 016037 000012 001126 MOV RMDS(RO), SBDDAT =) CONTENTS OF RMDS 
035302 012737 000012 001122 MOV #RMDS, SBOADR ; FORM REGISTER sprne ss OF ERROR MESSAGE 
035310 060037 001122 ADD RO, SBDADR ADD RH/RM BASE A + 
035314 005037 001124 CL& $GDDAT ‘WHAT REGISTER sHoue D BE 
035320 013737 001126 001164 MOV SBCDAT,STMPO ‘MOVE REGISTER CONTENTS TO 'S$TMPO' 
035326 042737 077777 001164 BIC #*CATA,STMPO SAVE SPECIFIED BITS 
035334 023737 001124 001164 CMP SGDDAT,STMPO :CO OMPARE THE BITS 
035342 001414 BEQ 73$ F OK 
035344 013737 001126 001174 MOV SBDDAT,STMP4 “COPY "BAD DATA’ 
935352 042737 100000 001174 BIC MATA, STMPG ;CLEAR THE MASKED BITS 
035360 053737 001174 001124 BIS STMP4 ,SGDDAT ;'OR' WITH GOOD DATA FOR TYPEOUT 
035366 104047 EMT 47 
035370 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
035374 000240 73$: NOP 

;RELEASE THE DRIVE FROM PORT A 
035376 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
035404 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
035412 012760 000013 000000 MOV #13,RMCS1(RO)  ;ISSUE RELEASE THROUGH PORT A 

;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL . 
035420 005037 001254 CLR RELERR ;CLEAR THE ‘RELEASE ERROR * INDICATOR 
035424 012737 000012 001122 MOV ARMDS,SBDADR — THE ADDRESS OF RMDS FOR TYPEOUT 
035432 060037 001122 ADD RO, SBDADR ADD THE 1/0 BASE ADDRESS 
035436 012737 011700 001124 MOV PMOL TPGMSDPR!DRY{VV. a ;COMPARISON CONSTANT 
035444 113760 001224 000010 MOVB PORTA,RMCS2(RO) :SELECT PORT A. 
035452 016037 000012 001170 MOV RMDS(RO),$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
035460 042737 024001 001170 BIC #PIP'WRL'OM, $TMP2 sCLEAR DONT CARES 
035466 013737 001170 001164 MOV STMP2,STMPO sCOPY IT INTO '$TMPO' 
035474 042737 100100 001164 BIC MATA'VV,STMPO ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
035502 113760 001226 000010 MOVB PORTB,RMCS2(RO) :SELECT PORT B. 
035510 016037 000012 001172 MOV RMDS(RO),STMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
035516 042737 024001 001172 BIC #PIP {URL OM, $TMP3 ;CLEAR DONT CARES 
035524 013737 001172 001166 MOV STMP3,$ ;COPY IT INTO ‘STMP1° 
035532 042737 100100 001166 BIC SAT AtOy OTNPt ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
035540 023737 001164 001166 CMP $TMPO,STMP1 31S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
035546 001006 BNE 75% ‘BR IF NOT 
035550 005737 001164 TST $TMPO s;REGISTERS ARE THE SAME: ARE THEY ZERO ? 
035554 001045 BNE 77$ BR IF NOT 
035556 104046 EMT 46 
035560 000137 035760 JMP 79$ ;BYPASS THE REST OF THE CHECKS 
035564 013737 001170 001126 758: MOV STMP2, Sepent 7SET UP POSSIBLE SAD DATA FOR ERROR MESSAGE 
035572 013737 001226 001240 MOV PORTB,PTNB :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
035600 113760 001226 000010 MOVB PORTB, RAC SE CRO) >SELECT PORT B. 
035606 005737 001164 TST STMPO ;SEE IF STATUS EQ 0 FROM PORT A. 
035612 001414 BEQ 76% ;BR IF ZER 
035614 013737 001224 001240 MOV PORTA,PTNBR sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
035622 013737 001172 001126 MOV STMP3,$BDDAT "BAD DATA’ i ERROR TYPE OUT 
035630 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
035636 005737 001166 TST STMP1 :SEE IF STATUS EQ ZERO FROM PORT B. 
035642 001012 BNE 77$ ;BR IF NOT 
035644 012737 177777 001254 /76$: MOV #-1,RELERR ;SET "RELEASE ERROR’ INDICATOR 
035652 012760 000011 000000 MOV #11,RMCS1(RO) ;CLEAR THE DRIVE 
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TEST RESET ATTENTION "A* BY DRIVE CLEAR SEQ 0106 
035660 012760 000013 000000 MOV M13,RMCS1(RO)  ;RELEASE THE DRIVE 
035666 104026 EMT 
035670 013737 001170 001126 77S: MOV STMP2,$BODAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
035676 013737 001224 001240 MOV PORTA,PTNBR :CH ee PORT NUMBER 
035704 042737 100000 001126 BIC HATA, $BDDAT :DON'T CHECK THE ATTN BIT 
035712 023737 001124 001126 CMP $GDDAT,$BDDAT ALL BITS OK 
035720 001401 BEQ 78$ BR IF OK FROM PORT A. 
035722 104007 EMT 7 
035724 013737 001172 001126 78s: MOV STMP3,$BDDAT CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
035732 013737 001226 001240 MOV PORTB,PTNBR ; CHANGE PORT NUMBER 
035740 042737 100000 001126 BIC HATA, $BDDAT ;DON'T CHECK THE ATTN BIT 
035746 023737 001124 001126 CMP $GDDAT,SBDDAT SEE IF READ OK FROM PORT B. 
035754 001401 BEQ 79$ :BR IF OK 
035756 104007 EMT 7 
035760 000240 79$: NOP 
:CHECK ATTENTION BIT ON THE OPPOSITE PORT (PORT B) 
035762 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
035770 013737 001226 001240 MOV PORTB,PTNBR ;MOVE sel ADDRESS TO LOCATION FOR TYPEOUT 
035776 005037 1250 CLR CKERR ;CLEAR THE "CHECK ERROR' INDICATOR 
036002 016037 000012 001126 MOV RMDS(RO) , SBDDAT hy CONTENTS OF RMDS 
036010 012737 000012 001122 MOV #RMDS , SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
036016 060037 001122 ADD RO, SBDADR 3ADD_RH/RM an ADDRESS 
036022 012737 100000 001124 MOV HATA,SGDDAT ;WHAT REGISTER SHOULD BE 
036030 013737 001126 001164 MOV SBDDAT,STMPO :MOVE REGISTER. CONTENTS TO '$TMPO" 
036036 042737 077777 001164 BIC H*CATA,STMPO ;SAVE SPECIFIED BITS 
036044 023737 001124 001164 CMP $SGDDAT,$TMPO :COMPARE THE BITS 
036052 001414 BEQ 80$ :BR IF OK 
036054 013737 001126 001174 MOV SBDDAT ,STMP4 :COPY "BAD DATA’ 
036062 042737 100000 001174 BIC HATA,STMPG :CLEAR THE MASKED BITS 
036070 053737 001174 001124 BIS STMP4 ,,SGDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
036076 104050 EMT 50 
036100 005137 001250 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
036104 000240 80$: NOP 
036106 000004 1$: SCOPE ;LOOP ? 
3 
976 RRR EEE EERE KEKE 
: TEST 2? TEST RESET ATTENTION "B* BY DRIVE CLEAR 


:*VERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZING PORT. 


sf 6A. st EACH PORT'S ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 
: . 
‘® 
: * B. SEIZE THE DRIVE THROUGH PORT 'B* BY WRITING O'S INTO RMDS. 
°@ 
;* (C. ISSUE A DRIVE CLEAR COMMAND. 
-* 
:* D. RELEASE THE DRIVE THROUGH PORT 'B'. VERIFY THAT THE ATTENTION 
hd BIT FOR PORT 'B’ HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 
e "A* IS STILL SET. 
-* 
S eeeeeeeeeeeeeeeeeeteettteetteeee eee eee eeee ee eee eee eee 
036110 TST27: 


9 
CZRMRAQ RMOS/3/2 DU POR TST 1. MACRO v03.01 Spode 80 14:26:10 PAGE 8-70 


12? TEST RESET ATTENTION 'B* BY DRIVE CLEAR SEQ 0107 


036110 005737 001300 TST KYBCTL ; PERFORMING ONLY SINGLE TEST ? 
036114 001406 BEQ 2$ IF NOT 
036116 100002 BPL 1$ BR IF JUST ENTERED TEST 
036120 000137 003110 JMP _T sRETURN & GET NEXT TEST NUMBER 
036124 012737 TSE E 001300 1$: MOV #-1,KYBCTL SET SINGLE TEST INDICATOR 
036132 012737 036146 001106 2s: MOV MTEST27, SLPADR ;SETUP SCOPE LOOP ADDRESS 
Ric les 012737 036146 001110 rest2? MOV MTEST27,$LPERR ;SETUP ERROR LOOP ADDRESS 
036146 112737 000027 001102 MOVB #27,$TSTNM sMOVE #27 TO TEST NUMBER 
036154 012706 001100 MOV ASTACK ,SP ;LOAD THE STACK POINTER 
977 036160 012737 000031 001176 MOV #25. ,$TIMES :3D0 25. ITERATIONS 
978 
:SET ATTENTION BITS FOR BOTH PORTS 
036166 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT 64$ 
036174 005760 000012 668: TST RMDS (RO) :MAKE SURE DRIVE AVAILABLE 
036200 001775 BEQ 66$ 
036202 012760 177777 000014 MOV #-1,RMER1(RO)  ;FORCE ERRORS 
036210 005060 000014 CLR RMER1 (RO) :CLEAR THE ERRORS 
036214 013760 001226 000010 MOV PORTB,RMCS2(RO) ;SELECT THE OTHER PORT 
036222 005760 000012 64$: TST RMDS (RO) WAIT FOR DRIVE TO TIMEOUT 
036226 001775 BEQ 64$ ;BR IF DRIVE HASN'T TIMED OUT 
036230 012760 177777 000014 MOV #-1, 71 Hace :FORCE ERRORS a PORT 65$ 
036236 005060 000014 CLR RMER1(RO) :CLEAR THE ERRORS 
036242 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT ‘'64$'' AGAIN 
036250 005760 000012 65$: TST RMDS (RO) :WAIT FOR DRIVE TO TIMEOUT 
036254 001775 BEQ 65$ :BR IF DRIVE HASN'T TIMED OUT 
CONFIRM THAT BOTH ATTENTION BITS ARE SET 
036256 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
036264 013737 001226 001240 MOV aot g PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
036272 005037 001250 CLR CKERR :CLEAR THE "CHECK ERROR’ INDICATOR 
036276 016037 00C012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
036304 012737 000012 001122 MOV #RMDS , SBDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
036312 060037 001122 ADD RO, $BDADR ADD RH/RM BASE ADDRESS 
036316 012737 100000 001124 MOV HATA,SGDDAT ;WHAT REGISTER SHOULD BE 
036324 013737 001126 001164 MOV SBDDAT, STMPO MOVE REGISTER CONTENTS TO ‘$TMPO' 
036332 042737 077777 001164 BIC #°CATA,STMPO ;SAVE SPECIFIED BITS 
036340 023737 001124 001164 CMP SGDDAT ,$TMPO :;COMPARE THE BITS 
036346 001414 BEQ 67$ :BR_ IF OK 
036350 013737 001126 001174 MOV SBDDAT, STMP4 :COPY ‘BAD DATA’ 
036356 042737 100000 001174 BIC MATA, STMP4 :CLEAR THE MASKED BITS 
036364 053737 001174 001124 BIS STMP4 ,SGDDAT :OR' WITH GOOD DATA FOR TYPEOUT 
036372 104010 EMT 19 
036374 005137 001250 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
036400 000240 67$: NOP 
036402 005737 001250 TST CKERR WAS ATIN BIT FOR PORT B SET ? 
036406 001402 BEQ +6 :BR IF IT WAS 
036410 000137 037602 JMP 1$ :BYPASS REST a! TEST IF NOT 
036414 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT 
036422 013737 001224 001240 MOV PORTA,PTNBR ; MOVE +4 ADDRESS TO LOCATION FOR TYPEOUT 
036430 005037 001250 CLR CKERR i CLEAR fe "CHECK ERROR® INDICATOR 
036434 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
036442 012737 000012 001122 MOV WRMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
036450 060037 001122 ADD RO, $BDADR ;ADD RH/RM BASE ADDRESS 
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127 ESET ATTENTION ‘B® BY DRIVE CLEAR SEQ 0108 
036454 012737 100000 001124 MOV HATA,SGDDAT ;WHAT REGISTER SHOULD BE 
036462 013737 001126 001164 MOV SBDDAT,$TMPO ;MOVE REGISTER CONTENTS TO ‘STMPO" 
036470 042737 077777 001164 BIC M*CATA,STMPO ;SAVE SPECIFIED BITS 
036476 023737 001124 001164 CMP SGDDAT,STMPO COMPARE THE BITS 
036504 001414 BEQ 69% : K 
036506 013737 001126 001174 MOV SBDDAT,STMP4 ;COPY "BAD DATA’ 
036514 042737 100000 001174 BIC MATA, STMPG ;CLEAR THE MASKED BITS 
036522 053737 001174 001124 BIS STMP4 ,SGDDAT ;'OR' WITH GOOD DATA FOR TYPEOUT 
036530 104010 EMT 10 
036532 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
036536 000240 69$: NOP 
036540 005737 001250 TST CKERR ;WAS ATTN BIT FOR PORT A SET ? 
036544 001402 BEQ +6 ;BR IF IT WAS 
036546 000137 037602 JMP 1$ BYPASS REST OF TEST IF NOT 
SEIZE THE DRIVE THROUGH PORT B 
036552 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
036560 013737 001226 001242 MOV PORTB,SEIZPT ;STORE SEIZING PORT'S ADDRESS 
036566 005060 000012 CLR RMDS (RO) WRITE RMDS 
036572 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
036600 013737 601224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
036606 013737 001224 001244 MOV PORTA,OPPRT ; OPPOSITE’ PORT ADDRESS 
036614 016037 000012 001126 MOV RMDS (RO) ieee +SEE IF DRIVE SEIZED BY PORT B 
036622 010037 001122 MOV RO,$ RH/RM BASE ADDRESS 
036626 062737 000012 001122 ADD ARMDS, SBDADR : GENERATE BAD REGISTER ADDRESS 
036634 005037 001124 CLR $GDDAT REGISTER SHOULD BE ZERO 
036640 023737 001124 001126 CMP $GDDAT,SBDDAT ;1S THE REGISTER ZERO 
036646 001403 BEQ 71% :BR IF IT IS 
036650 104004 EMT ~ 
frets 000137 037602 6 JMP 1$ :BYPASS REST OF THE SUBTEST 
036656 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
036664 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
036672 016037 000012 001126 MOV RMDS(RO),SBDDAT ;SEE IF SEIZING PORT se CORRECT STATUS 
036700 042737 020001 001126 BIC #OM!PIP, SBDDAT ;CLEAR DONT CARE BITS 
036706 012737 011700 001124 MOV WMOL!PGM'DPR!DRY!VV,SGDDAT EXPECTED STATUS 
036714 013737 001124 001166 MOV $GDDAT,STMP1 ;USE GOOD DATA AS A MASK 
036722 5137 001166 COM $TMP i ;COMPLEMENT THE EXPECTED STATUS 
036726 013737 001126 001164 MOV SBDDAT, STMPO SAVE THE ACTUAL STATUS 
036734 043737 001166 001164 BIC STMP1,STMPO :CLEAR UNWANTED BITS 
036742 023737 001124 001164 CMP SGDDAT,$TMPO sARE THE EXPECTED STATUS BITS SET ? 
036750 001401 BEQ 72$ ;BR IF THEY ARE 
036752 104005 EMT 5 
036754 000240 728: NOP 
;1SSUE DRIVE CLEAR COMMAND TO PORT B 
036756 012760 000011 000000 MOV #11,RMCS1(RO) ;DO0 A DRIVE CLEAR COMMAND 
;VERIFY THAT ATTENTION BIT FOR PORT B CLEARED 
036764 005037 001250 CLR CKERR ;CLEAR THE ‘CHECK ERROR’ INDICATOR 
036770 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS Of RMD 
036776 012737 000012 001122 MOV #RMDS , SBDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
037004 060037 001122 ADD RO, $BDADR ADD RH/RM BASE ADDRESS 
037010 005037 001124 CLR $GDDAT WHAT REGISTER SHOULD BE 
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127 TEST RESET ATTENTION 'B' BY DRIVE CLEAR SEQ 0109 

037014 013737 001126 001164 MOV SBDDAT,$TMPO =; MOVE REGISTER CONTENTS TO '$TMPO" 
037022 042737 077777 001164 BIC #*CATA,STMPO :SAVE SPECIFIED BITS 
037030 023737 001124 001164 CMP SGDDAT,$TMPO ° ; COMPARE THE BITS 
037036 001414 BEQ 73$ ‘BR IF OK 
037060 013737 001126 001174 MOV SBDDAT,STMP4 § :COPY ‘BAD DATA’ 
037046 042737 160000 001174 BIC HATA, STMPG :CLEAR THE MASKED BITS 
037054 053737 001174 001124 BIS $TMPG ,SGDDAT :"OR' WITH GOOD DATA FOR TYPEOUT 
037062 104047 EMT 47 
037064 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
037070 000240 73$: NOP 

;RELEASE THE DRIVE FROM PORT B 
037072 113760 001226 000010 MOVB © PORTB,RMCS2(RO) ;SELECT PORT B 
037100 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
037106 912760 000°13 000000 MOV #13,RMCS1(RO)  ;ISSUE RELEASE THROUGH PORT B 

;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
037114 005037 001254 CLR RELERR ;CLEAR THE "RELEASE ERROR ' INDICATOR 
037120 012737 000012 001122 MOV #RMDS, SBDADR : FORM THE ADDRESS OF RMDS FOR TYPEOUT 
037126 060037 001122 ADD RO, $BDADR “ADD THE 1/0 BASE ADDRESS 
037132 012737 011700 001124 MOV @MOL |PGM'DPRIDRYiyy. SGDDAT : COMPARISON CONSTANT 
037140 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT PORT 
037146 016037 000012 001170 MOV RMDS(RO),$TMP2 :GET THE DRIVE” STATUS REGISTER FROM PORT A. 
037154 042737 024001 001170 BIC #PIP!WRL'OM,$TMP2 sCLEAR DONT CARES 
037162 013737 001170 001164 MOV STMP2,$TMPO sCOPY IT INTO ‘$TMP poe 
037170 042737 100100 001164 BIC HATA'VV,STMPO  :CLEAR PORT DEPENDENT BITS FROM THE COPY 
037176 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
037206 016037 000012 001172 MOV RMDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
037212 042737 024001 001172 BIC wP1® {URL iOM,$ STMPS :CLEAR DONT CARES 
037220 013737 001172 001166 MOV $TMP3,$ >COPY IT INTO ‘$TMP1' 
037226 042737 100100 001166 BIC SATAT GY. STRPI :CLEAR PORT DEPENDENT BITS FROM THE COPY 
037234 023737 001164 001166 CMP $TMPO,STMP1 :1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
037242 001006 BNE 75$ :BR IF NOT 
037244 005737 001164 TST $TMPO ZREGISTERS ARE THE SAME: ARE THEY ZERO ? 
037250 001045 BNE 77$ :BR IF NOT 
037252 104046 EMT 46 
037254 000137 037454 JMP 79% :BYPASS THE REST OF THE CHECKS 
037260 013737 001170 001126 75$: MoV $TMP2,$BDDAT :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
037266 013737 001226 001240 MOV PORTB,PTNBR > SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
037274 113760 001226 000010 MOVB  PORTB,RMCS2(RO) ;SELECT PORT B. 
037302 005737 001164 TST $TMPO SEE IF STATUS EQ 0 FROM PORT A. 
037306 001414 BEQ 76$ BR IF ZERO 
037310 013737 001224 001240 MOV PORTA, PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
037316 013737 001172 001126 MOV STMP3,$BDDAT :"BAD DATA’ FOR ERROR TYPE OUT 
037324 113760 001224 000010 MOVB PORTA. RMCS2(RO) :SELECT PORT A. 
037332 005737 001166 TST $TMP1 : SEE IF STATUS EQ ZERO FROM PORT B. 
037336 001012 BNE 77$ ‘BR IF NOT 
037340 012737 177777 001254 76$: MOV #-1,RELERR :SET "RELEASE ERROR’ INDICATOR 
037346 012760 000011 000000 MOV #11.RMCS1(RO)  :CLEAR THE DRIVE 
037354 012760 000013 000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
037362 104026 EMT 26 
037364 013737 001170 001126 77%: MoV $TMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
037372 013737 001224 001240 MOV PORTA, PTNBR :CHANGE PORT NUMBER 
037400 042737 100000 001126 BIC HATA, SEDDAT :DON'T CHECK THE ATTN BIT 
037406 023737 001124 001126 CMP $GDDAT,$BDDAT ALL BITS OK ? 


1 
T2 
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037414 001401 BEQ 78$ :BR IF OK FROM PORT A 
037416 104007 EMT 7 
037420 013737 001172 001126 78%: MoV STMP3,$BDDAT —; CHECK RMDS FOR Bit FAILURES = FROM PORT B. 
037426 013737 001226 001240 MOV PORTB.PTNBR ;CHANGE PORT NUMBER 
037434 042737 100000 001126 BIC HATA, $BDDAT [DON'T CHECK THE ATTN BIT 
037442 023737 001124 001126 CMP $GDDAT,$BDDAT :SEE IF READ OK FROM PORT B. 
037450 001401 BEQ 79$ :BR IF OK 
037452 104007 EMT 
037454 000240 79$: NOP 
;CHECK ATTENTION BIT ON THE OPPOSITE PORT (PORT A) 
037456 113760 001224 000010 MOVB  =PORTA,RMCS2(RO) ;SELECT PORT A 
037464 013737 001224 001240 MOV PORTA.PTNBR ;: MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
037472 005037 001250 CLR CKERR :CLEAR THE "CHECK ERROR' INDICATOR 
037476 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
037504 012737 000012 001122 MOV #RMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
037512 060037 001122 ADD RO, $BDADR sADD RH/RM BASE ADDRESS 
037516 012737 100000 001124 MOV HATA,SGDDAT WHAT REGISTER SHOULD BE 
037524 013737 001126 001164 MOV SBDDAT,STMPO ' ;MOVE REGISTER CONTENTS TO 'STMPO' 
037532 042737 077777 001164 BIC #*CATA.S$TMPO SAVE SPECIFIED BITS 
037540 023737 001124 001164 CMP SGDDAT,STMPO  ; COMPARE THE BITS 
037546 001414 BEQ 80$ R IF OK 
037550 013737 001126 001174 MOV SBDDAT,$TMP4 | :COPY ‘BAD DATA’ 
037556 042737 100000 001174 BIC HATA, STMPG =CLEAR THE MASKED BITS 
037564 053737 001174 001124 BIS $STMP4,$GDDAT  :'OR' WITH GOOD DATA FOR TYPEOUT 
037572 104050 EMT 50 
037574 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
037600 000240 80$: NOP 
037602 000004 1$: SCOPE :LOOP ? 
979 
998 
G99 > P AAA ARRAS ESAS RRRSSRRSASSSSSSESESSESAESESESESOCSLSOCLLLSCLCOCLLLCLE. FY 
;*TEST 30 RESET ATTENTION 'A' BY GO TEST 
i VERIFY THAT THE ‘GO BIT CLEARS ONLY THE ATTENTION BIT OF THE 
: SEIZING PORT. 
** 
:* A. SET EACH PORT'S ATTENTION BIT, AND VERIFY THAT BOTH 
i ATTENTION BITS ARE SET 
:* B. SEIZE THE DRIVE THROUGH PORT 'A* BY WRITING 0°S 
ie INTO RMDS. 
** 
:* C. ISSUE A NOP COMMAND. 
**® 
:* D. RELEASE THE FRIVE THROUGH PORT ‘A’. VERIFY THAT THE 
te ATTENTION BIT FOR PORT 'A' IS RESET, AND THE. 
te ATTENTION BIT FOR PORT 'B' IS STIL SET. 
** 
:: IRE SSSSESESASESERESARSSEEESESESESAEEE EE SESESESESESCLLCACALLLALASE A SE 
037604 1130: 
037604 005737 001300 TST KYBCTL :PERFORMING ONLY SINGLE TEST ? 
037610 001406 BEQ 2$ :BR IF NOT 
037612 100002 BPL 1$ :BR IF JUST ENTERED TEST 
037614 000137 003110 JMP EXEC [RETURN & GET NEXT TEST NUMBER 
037620 012737 177777 001300 1$: MOV #-1, KYBCIL :SET SINGLE TEST INDICATOR 
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CZRMRAO RMO5/3/2 DU POR TST 1 
130 RESET ATTENTION ‘A’ BY GO TEST SEQ 0111 
037626 012737 037642 001106 28: MOV MTEST30,$LPADR ;SETUP SCOPE LOOP ADDRESS 
tihte: 012737 037642 001110 1€5130 MOV MTESTSO,$LPERR ;SETUP ERROR LOOP ADDRESS 
037642 112737 000030 001102 MOVB af STSTNM ;MOVE #30 TO TEST NUMBER 
037650 012706 001100 MOV STACK, SP ;LOAD THE STACK POINTER 
1000 037654 012737 000031 001176 MOV 15. /STIMES 33D0 25. ITERATIONS 
1033 
;SET ATTENTION BITS FOR BOTH PORTS 
037662 113760 001224 000010 MuVe PORTA,RMCS2(RO) ;SELECT PORT 64$ 
037670 005760 000012 56$: TST . RMDS(RO) ;MAKE SURE DRIVE AVAILABLE 
037674 001775 BEQ 66$ 
037676 012760 177777 000014 MOV #-1,RMERI(RO> ;FORCE ERRORS 
037704 005060 000014 CLR RMER1(RO) ;CLEAR THE ERRORS 
037710 013760 001226 000010 MOV PORTB,RMCS2(RO) ;SELECT THE OTHER PORT 
037716 005760 000012 64$: TST RMDS (RO) :WAIT FOR DRIVE TO Van 
037722 001775 BEQ 64$ ;BR IF DRIVE HASN'T TIMED OUT 
037724 012760 177777 000014 MOV #-1,RMER1(RO)  ;FORCE ERRORS A... PORT 65$ 
037732 005060 000014 CLR RMER1(RO) ;CLEAR THE ERRORS 
037736 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT ''64$'' AGAIN 
037744 005760 000012 65$: TST RMDS (RO) ;WAIT FOR DRIVE TO TIMEOUT 
037750 001775 BEQ 65$ ;BR IF DRIVE HASN'T TIMED OUT 
CONFIRM THAT BOTH ATTENTION BITS ARE SET 
037752 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
037760 013737 001224 001240 MOV PORTA,PTNBR ;MOVE ye ADDRESS TO LOCATION FOR TYPEOUT 
037766 005037 001250 CLR CKERR ;CLEAR THE ‘CHECK ERROR" INDICATOR 
037772 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
040000 012737 000012 001122 MOV #RMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
040006 060037 001122 ADD RO,$BDADR ;ADD RH/RM BASE ADDRESS 
040012 012737 100000 001124 MOV MATA,SGDDAT ;WHAT REGISTER SHOULD BE 
040020 013737 001126 001164 MOV SBDDAT,$TMPO ;MOVE REGISTER CONTENTS TO *STMPO' 
040026 042737 077777 001164 BIC M*CATA,STMPO ;SAVE SPECIFIED BITS 
040034 023737 001124 001164 CMP SGDDAT,STMPO :COMPARE THE BITS 
040042 001414 BEQ 67$ :BR IF OK 
040044 013737 001126 001174 MOV SBDDAT ,STMP4 COPY ‘BAD DATA’ 
040052 042737 100000 001174 BIC MATA, STMPS :CLEAR THE MASKED BITS 
040060 053737 001174 001124 BIS STMP4 ,SGDDAT :"OR' WITH GOOD DATA FOR TYPEOUT 
040066 104010 EMT 10 
040070 005137 001250 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
040074 000240 67$: NOP 
040076 005737 001250 TST CKERR 7 WAS ATTENTION SET FOR A?? 
040102 001402 BEQ -+6 ses! 
040104 000137 041276 JMP 1$ :NO - BYPASS REST OF TEST 
040110 113760 001226 000010 MOVB PORTB,RMCS2(RO) ";SELECT PORT B 
040116 013737 001226 001240 MOV PORTB,PTNBR ; MOVE 4 ADDRESS TO LOCATION FOR TYPEQOUT 
040124 005037 001250 CLR CKERR ; CLEAR bh * CHECK ee gl INDICATOR 
040130 016037 000012 001126 MOV RMDS(RO) ,SBDDAT ;GET CONTENTS OF RMDS 
040136 012737 000012 001122 MOV #RMDS ,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
040144 060037 001122 ADD R0, $BDADR ;ADD RH/RM BASE ADDRESS 
040150 012737 100000 001124 MOV WATA,SGDDAT ;WHAT REGISTER SHOULD BE 
040156 013737 001126 001164 MOV SBDDAT,$TMPO ;MOVE REGISTER CONTENTS TO *STMPO" 
040164 042737 077777 001164 BIC #*CATA,STMPO SAVE SPECIFIED BITS 
040172 023737 001124 001164 CMP SGDDAT ,STMPO ;COMPARE THE BITS 
040200 001414 BEQ 69% :BR IF OK 
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130 


RESET ATTE 
040202 01 


FwWwrw ZC 


<< FNN ONS Ot 


040242 000 


040246 


104004 


040450 


040452 


040460 


a AAAI NW tw 


040554 


001250 
041275 


001224 


001124 


041276 
001224 


000010 
001242 


000010 


001126 
001122 
001126 


000010 


001166 
001164 


001164 
001164 


000000 


001164 
001174 


69$: 


71$: 


728: 


SBODAT ,STMP4 
MATA, STMPG 
lat seats 


CKERR 


PORTA,RMCS2(RO) 


PORTA, SEIZPT 
RMDS (RO) 


PORTB,RMCS2(RO) — T B 
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


PORTB,OPPRT 


RMDS (RO) ,SBDDAT 


RO,$BDADR 
#RMDS , SBDADR 
$GDDAT 


$GDDAT,$BDDAT 
% $ 


is 


PORTA,RMCS2(RO) 


PORTA,PTNBR 


#OM'PIP,$BDDAT 


iat 
#MOL'PGM'DPR!DRY! VV, SGDDAT 


SGDDAT,STMP1 
STMP1 


SBDDAT ,STMPO 
$STMP1,STMPO 

SGDDAT ,STMPO 
72$ 


:1SSUE NOP COMMAND TO PORT A 


VERIFY 


MOV 


#1,RMCS1(RO) 


:COPY "BAD DATA’ 
CLEAR THE MASKED BITS 
:'OR' WITH GOOD DATA FOR TYPEOUT 


;SET THE REGISTER COMPAPE ERROR INDICATOR 
te ty ATTENTION SET FOR B?? 
;NO = BYPASS REST OF TEST 


;SELECT PORT A 
: STORE rie PORT'S ADDRESS 


WRITE R 
SELECT P 


:'OPPOSITE’ PORT ADDRESS 

:SEE IF DRIVE aeaeee BY PORT A 
;RH/RM BASE ADDRESS 

+ GENERATE BAD REGISTER ADDRESS 
;REGISTER SHOULD BE ZERO 

31S jira ZERO 


BYPASS REST OF THE SUBTEST 
;SELECT PORT A 


:;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS (RO) eet 


SEE IF SEIZING PORT SEES CORRECT STATUS 
EAR DONT CARE BITS 
eg git STATUS 


;USE GOOD DATA’AS A 


:COMPLEMENT THE EXPECTED STATUS 
SAVE THE ACTUAL STATUS 

;CLEAR UNWANTED BITS 

ARE THE EXPECTED STATUS BITS SET ? 
:8R IF THEY 4RE 


THAT ATTENTION FOR PORT A CLEARED 


CKERR : 
RMDS(RO), SBDDAT 


#RMDS , SBOADR 
DADR 


T 
SBDDAT ,STMPO 
#*CATA,STMPO 
BEDOAT SAPO 


3 
SBDDAT,STMP4 


;CLEAR THE "CHECK ERROR’ INDICATOR 
GET CONTENTS OF RMDS 

;FORM REGISTER ADDRESS OF ERROR MESSAGE 

;ADD_RH/RM BASE ADDRESS 

;WHAT REGISTER SHOULD BE 

MOVE REGISTER CONTENTS TO ‘$STMPO' 

SAVE oka take BITS 

:COMPARE THE BITS 

BR IF OK 

:COPY "BAD DATA‘ 


SEQ 0112 
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130 RESET ATTENTION ‘A* BY GO TEST SEQ 0113 

040542 042737 100000 001174 BIC HATA, STMPG ;CLEAR THE MASKED BITS 
040550 053737 001174 001124 BIS STMP4 ,SGDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
040556 104061 EMT 61 
040560 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
040564 000240 73$: NOP 

sRELEASE THE DRIVE FROM PORT A 
040566 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
040574 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
040602 012760 000013 000000 MOV M13,RMCS1(RO)  ;ISSUE RELEASE THROUGH PORT A 

sVERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
040610 005037 001254 CLR RELERR CLEAR THE ‘RELEASE ERROR * INDICATOR 
040614 012737 000012 001122 MOV #RMDS ,SBDADR FORM THE ADDRESS OF RMDS FOR TYPEOUT 
040622 060037 001122 ADD RO, $BDADR :ADD THE 1/0 BASE ADDRESS 
040626 012737 011700 001124 MOV #MOL!PGM!DPR!DRY!VV,S$GDDAT bea CONSTANT 
040634 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
040642 016037 000012 001170 MOV RMDS(RO),$TMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
040650 042737 024001 001170 BIC #PIP!WRL'OM,$TMP2 ;CLEAR DONT CARES 
040656 013737 001170 001164 MOV STMP2,$TMPO ;COPY IT INTO ‘$TMPO' 
040664 042737 100100 001164 BIC HATA!VV,STMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
040672 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 
040700 016037 000012 001172 MOV RMDS(RO),$TMP3 :GET THE DRIVE cee REGISTER FROM PORT B. 
040706 042737 024001 001172 BIC PLP LWRL {OM, STMPS :CLEAR DONT CARES 
040714 013737 001172 001166 MOV STMP3,STMP ;COPY IT INTO 'STMP1' 
040722 042737 100100 001166 BIC WATALVV, STHPI ;CLEAR PORT DEPENDENT BITS FROM THE C 
040730 023737 001164 001166 CMP $TMPO,STMP1 21S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
040736 001006 BNE 75$ ;BR IF NOT 
040740 005737 001164 TST $TMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
040744 001045 BNE 77% :BR IF NOT 
040746 104046 EMT 46 
040750 000137 041150 JMP 79$ BYPASS THE REST OF THE CHECKS 
040754 013737 001170 001126 758: MOV STMP2,SBDDAT :SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
040762 013737 001226 001240 MOV PORTB,PTNBR >SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
040770 113760 001226 000010 MOVB PORTB,RMCS2(RO) :SELECT PORT B. 
040776 005737 001164 TST STMPO SEE IF STATUS EQ 0 FROM PORT A. 
041002 001414 BEQ 76$ :BR IF ZERO 
041004 013737 001224 001240 MOV PORTA,PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
041012 013737 001172 001126 MOV STMP3,$BDDAT :'BAD DATA’ os ERROR TYPE OUT 
041020 113760 001224 000010 MOVB PORTA,RMCS2(RO) SELECT PORT 
041026 005737 001166 TST STMP1 ; SEE STATUS "EQ ZERO FROM PORT B. 
041032 001012 BNE 77% :BR NOT 
041034 012737 177777 001254 76S: MOV #-1,RELERR :SET RELEASE ERROR" INDICATOR 
041042 012760 000011 000000 MOV #11,RMCS1(RO) ;CLEAR THE DRIVE 
041050 012760 000013 000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
041056 104026 EMT 26 
041060 013737 001170 001126 77S: MOV STMP2,SBDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
041066 013737 001224 001240 MOV PORTA,PTNBR — PORT NUMBER 
041074 042737 100000 001126 BIC #ATA, SBDDAT ;DON'T CHECK THE ATTN BIT 
041102 023737 001124 001126 CMP SGDDAT,$BDDAT ALL BITS OK ? 
041110 001401 BEQ 78% :BR IF OK FROM PORT A. 
041112 104007 EMT 7 
041116 013737 001172 001126 788: MOV STMP3,S$BDDAT CHECK RMDS dy Rib FAILURES - FROM PORT B. 
041122 013737 001226 001240 MOV PORTB,PTNBR fy PORT NUMBER 
041130 042737 100000 001126 BIC #ATA,$BDDAT :DON'T CHECK THE ATIN B11 
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041300 


041344 
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000004 


001124 


001174 
001250 
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RESET ATTENTION ‘A’ BY GO TEST 


001126 


001300 


001102 


CMP 
Q 


79$: NOP 


SGDDAT,$BDDAT  ;SEE IF READ OK FROM PORT B. 
79$ BR IF OK 


sVERIFY THAT ATTENTION FOR PORT B IS STIL SET 


80$: NOP 
1$: 


PORTB,RMCS2(RO) ;SELECT PORT B 

PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR CLEAR THE ‘CHECK ERROR' INDICATOR 
RMDS(RO),SBDDAT ;GET CONTENTS OF RMDS 

#RMDS ,SBDADR + FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO, SBDADR ADD _RH/RM BASE ADDRESS 

HATA, SGDDAT : WHAT REGISTER SHOULD BE 

SBDDAT,STMPO MOVE REGISTER syerenre TO "$TMPO' 
#“CATA,STMPO SAVE SPECIFIED BITS 

SGDDAT,STMPO COMPARE THE BITS 

0$ :BR IF OK 


8 : 
SBDDAT,STMP4 ;COPY "BAD DATA‘ 


HATA,STMPG ;CLEAR THE MASKED BITS 
te nate :'OR' WITH GOOD DATA FOR TYPEOUT 
CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 


hehe PPP PPP E SS RCE SESE SEC RSC S SSE SSS C SCC S SSS SS 


: TEST 31 


7* SEIZIN 

7* 

se §. 

7* 

7* 

:* B. 

Ee 

;* 

20 €. 

3* 

i* D. 

29 

3” 

ie 

TST31: 
TST 
BEQ 
BPL 
JMP 

1$: MOV 

23: MOV 
MOV 

TEST31: 
MOVB 
MOV 


RESET ATTENTION 'B* BY GO TEST 


:* VERIFY eg ey BIT CLEARS ONLY THE ATTENTION BIT OF THE 


SET EACH PORT'S He ia BIT, AND VERIFY THAT BOTH 
ATTENTION BITS ARE SET 


SEIZE THE DRIVE THROUGH PORT 'B" BY WRITING 0'°S 
INTO RMDS. 


ISSUE A NOP COMMAND. 

RELEASE THE FRIVE THROUGH PORT ‘B’. yy THAT THE 
ATTENTION BIT FOR PORT 'B' IS RESET, AND THE 
ATTENTION BIT FOR PORT 'A* IS STIL SET 


DARA LAASSSSASZASESESESESEE LESSER SESE ESE ESE CS SSC SACSSESESSSSOLASSOS SY 


KYBCTL PERFORMING ONLY SINGLE TEST ? 
2$ :BR IF NOT 

1$ :BR_IF JUST ENTERED TEST 

EXEC sRETURN & GET NEXT TEST NUMBER 
#-1,KYBCTL ;SET SINGLE TEST INDICATOR 


WTEST31,$LPADR ;SETUP SCOPE LOOP ADDRESS 
MTEST31,$LPERR ;SETUP ERROR LOOP ADDRESS 


#31,$TSTNM :MOVE #31 TO TEST NUMBER 
WSTACK,SP ;LOAD THE STACK POINTER 


SEQ 0114 


CZRMRAO RMOS/3/2 DU POR TST 1 


041350 012737 000031 
1055 
1056 

041356 113760 001224 
041364 005760 000012 
041370 001775 

041372 012760 177777 
041400 005060 000014 
041404 013760 001226 
041412 005760 000012 
041416 001775 

041420 012760 177777 
041426 005060 000014 
041432 113760 001224 
041440 005760 000012 
041444 001775 

041446 113760 001226 
041454 013737 001226 
041462 005037 001250 
041466 016037 000012 
041474 012737 000012 
041502 060037 001122 
041506 012737 100000 
041514 013737 001126 
041522 042737 077777 
041530 023737 001124 
041536 001414 

041540 013737 001126 
041546 042737 100000 
041554 053737 001174 
041562 104010 

041564 005137 001250 
041570 000240 

041572 005737 001250 
041576 001402 

041600 000137 042772 
041604 113760 001224 
041612 013737 001224 
041620 005037 00.250 
041624 016037 000012 
041632 012737 000012 
041640 060037 001122 
041644 012737 100000 
041652 013737 001126 
041660 042737 077777 
041666 023737 001124 
041674 001414 

041676 013737 001126 
041704 042737 100000 
041712 053737 001174 
041720 104010 

041722 005137 001250 


. 
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13) RESET ATTENTION 'B' BY GO TEST 


001176 


000010 


000014 
000010 


000014 
000010 


000010 
001240 


001126 
001122 


001124 


001164 


001174 
001174 
001124 


MOV #25. ,$TIMES 


SEQ 0115 


3300 25. ITERATIONS 


;SET ATTENTION BITS FOR BOTH PORTS 


MOVB PORTA, RMCS2(RO) 
66$: TST RMDS (RO) 

BEQ 66$ 

MOV #-1,RMER1(RO) 

CLR RMER1 (RO) 

MOV PORTB,RMCS2(RO) 
64$: TST RMDS (RO) 

BEQ 64% 

MOV #-1,RMER1(RO) 

CLR RMER1(RO) 

MOVB PORTA,RMCS2(RO) 
65$: TST RMDS (RO) 

BEQ 65$ 


SELECT PORT 64$ 
sMAKE SURE DRIVE AVAILABLE 


:FORCE ERRORS 

;CLEAR THE ERRORS 

;SELECT THE OTHER PORT 

WAIT FOR DRIVE TO TIMEOUT 
:BR IF DRIVE HASN'T TIMED OUT 
FORCE ERRORS ON PORT 65$ 
;CLEAR THE ERRORS 

;SELECT PORT ‘'64$'" AGAIN 
:WAIT FOR DRIVE TO TIMEOUT 
:BR IF DRIVE HASN'T TIMED OUT 


;CONFIRM THAT BOTH ATTENTION BITS ARE SET 


MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CLR CKERR ;CLEAR THE ‘CHECK ERROR" INDICATOR 
MOV RMDS(RO),SBDDAT ;GET CONTENTS OF RMDS 
MOV #RMDS ,SBDADR + FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO, $BDADR ADD RH/RM BASE ADDRESS 
MOV #ATA,SGDDAT WHAT i He SHOULD BE 
MOV SBDDAT,$TMPO MOVE REGISTER Teh TO "$TMPO' 
BIC #*CATA,S$TMPO ;SAVE SPECIFIED BIT 
CMP SGDDAT,STMPO > COMPARE THE Bits: 
BEQ 67$ BR IF OK 
MOV SBDDAT,STMP4 COPY ‘BAD DATA’ 
BIC HATA, STMPG :CLEAR THE MASKED BITS 
par STHPA, »$GDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
678 = CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
TST CKERR +: ATTENTION SET FOR B?? 
BEQ +6 ;YES! 
JMP 1$ ;NO - BYPASS | » OF TEST 
MOVB PORTA,RMCS2(RO) ;SELECT PORT 
MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CLR CKERR ;CLEAR THE ‘CHECK ERROR’ INDICATOR 
MOV RMDS (RO) , SBDDAT ;GET CONTENTS OF RMDS 
MOV #RMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO, $BDADR ;ADD RH/RM BASE ADDRESS 
MOV #ATA,SGDDAT ;WHAT REGISTER SHOULD BE 
MOV SBDDAT ,STMPO MOVE REGISTER CONTENTS TO ‘$TMPO" 
BIC #*CATA,STMPO SAVE gore et cee BITS 
CMP $GDDAT,STMPO COMPARE THE BITS 
BEQ 69$ :B K 
MOV SBDDAT ,STMP4 ;COPY "BAD DATA’ 
BIC MATA, STMP4 :CLEAR THE MASKED BITS 
fae Fars Se0Oat ;'OR' WITH GOOD DATA FOR TYPEOUT 
COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 


CZRMRAO RMOS/3/2 DU POR 
RESET ATTENTION 


131 


041726 


042144 


042146 


042154 


042260 


000240 


012760 


503 


ono 
oonoo 


oo——o 
NAO WI WI Ww 


OoQooooooo°oo 


o-oo 


Cooouwf On — 
oN WW EN 


OWS WNW www 
eo oONN NEN 


0 


042772 


001250 


000010 
001242 


000010 


001126 
001122 
001126 


000010 


001166 
001164 


001164 
001164 


000000 


69$: 


NOP 
TST 
BEQ 
JMP 
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GO TEST 


— tot I phate SET FOR A?? 
sVGen% 
i& ;NO = BYPASS REST OF TEST 


sSEIZE THE DRIVE THROUGH PORT B 


71$: 


72$: 


PORTB,RMCS2(RO) ;SELECT PORT B 

PORTB,SEIZPT ;ST a E SEIZING PORT'S ADDRESS 

RMDS (RO) WRITE RMDS 

PORTA,RMCS2(RO) ;SELECT PORT A 

PORTA, PTNBR :MovE PORT ADDRESS TO LOCATION FOR TYPEOUT 
"OPPOSITE’ PORT ADDRESS 

RMDS(RO), ae iSEE iy DRIVE SEIZED BY PORT B 


RO, $BDAD M BASE ADDRESS 

#RMDS, {SBDADR ‘GENERATE BAD REGISTER ADDRESS 
$GDDAT sREGISTER SHOULD BE ZERO 
SGDDAT,S$BDDAT ;1S THE REGISTER ZERO 

i“ :BR IF IT IS 

1$ BYPASS REST OF THE SUBTEST 


PORTB,RMCS2(RO) ;SELECT PORT B 

PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS (RO) , SBDDAT :SEE IF ete PORT SEES CORRECT STATUS 
#OM!PIP, $BDDAT :CLEAR DONT CARE BITS 
#MOL!PGM'DPR!DRY! VV, SGDDAT EXPECTED STATUS 
SGDDAT,$TMP1 ;USE GOOD DATA’ AS A MASK 

STMP1 :COMPLEMENT THE eth STATUS 

SBDDAT ,STMPO SAVE THE ACTUAL STA 

$TMP1,S$TMPO :CLEAR UNWANTED BIT 

$GDDAT, STMPO ARE THE EXPECTED STATUS BITS SET ? 

72$ ;BR IF THEY ARE 


;1SSUE NOP COMMAND TO PORT B 


: VERIFY 


73$: 


MOV 


#1,RMCS1(RO) 


THAT ATTENTION FOR PORT B CLEARED 


CKERR CLEAR THE ‘CHECK —— INDICATOR 
RMDS(RO), > age ait’: CONTENTS OF RMDS 

#RMDS , SBDADR M REGISTER ADDRESS OF ERROR MESSAGE 
RO. SBDADR OAD RH/RM BASE ADDRESS 


$GDDAT WHAT REGISTER SHOULD BE 

SBDDAT ,STMPO MOVE REGISTER CONTENTS TO ‘$TMPO' 
#°CATA,STMPO SAVE SPECIFIED BITS 

SGDDAT,STMPO 2 he THE BITS 

73% R IF OK 

SBDDAT ,STMP4 :COPY "BAD DATA’ 

MATA, STMP4 :CLEAR THE MASKED BITS 

SIMPS SODA :'OR* WITH GOOD DATA FOR TYPEOUT 

CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 


SEQ 0116 
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i RMRAO RMO5/3/2 DU POR TST 1 
1 RESET ATTENTION ‘B' BY GO TEST SEQ 0117 
sRELEASE THE DRIVE FROM PORT B 
042262 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
042270 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
042276 012760 000013 000000 MOV #13,RMCSTC(RO) s ISSUE RELEASE THROUGH PORT B 
sVERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
042304 005037 001254 CLR RELERR sCLEAR THE ‘RELEASE ERROR ' INDICATOR 
042310 012737 000012 001122 MOV #RMDS ,SBDADR ; FORM THE ADDRESS OF RMDS FOR TYPEOUT 
042316 060037 001122 ADD RO, SBDADR ADD THE 1/0 BASE ADDRESS 
042322 012737 011700 001124 MOV WMOL!PGM!DPRIDRYIVV, ae ro CONSTANT 
042330 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT P 
042336 016037 000012 001170 MOV RMDS(RO),STMP2 :GET THE DRIVE “STATUS REGISTER FROM PORT A. 
042344 042737 024001 001170 BIC #PIP!WRL'OM,STMP2 CLEAR DONT CARES 
042352 013737 001170 0011 MOV STMP2,STMPO ;COPY IT INTO ‘$TMPO 
042360 042737 100100 001164 BIC WATA'VV,STMPO CLEAR PORT —_ BITS FROM THE COPY 
042366 113760 001226 000010 MOVB PORTB,RMCS2(RO) :SELECT PORT 
042374 016037 000012 001172 MOV RMDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
042402 042737 024001 001172 BIC #PIP!WRL:OM,STMPS CLEAR DONT CARES 
042410 013737 001172 001166 MOV STMP3,STMP1 :COPY IT INTO ‘STMP1' 
042416 042737 100100 001166 BIC MATA‘VV,STMP1 [CLEAR PORT DEPENDENT BITS FROM THE COPY 
042424 023737 001164 001166 CMP STMPO,STMP1 s1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
042432 001006 BNE 75$ :BR IF NOT 
042434 005737 001164 TST STMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
042440 001045 BNE 77$ BR IF NOT 
042442 104046 EMT 46 
042444 000137 042644 JMP 79$ s:BYPASS THE REST OF THE CHECKS 
042450 013737 001170 001126 758: MOV STMP2,$BDDAT sSET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
042456 013737 001226 001240 MOV PORTB,PTNBR sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
042464 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 
042472 005737 001164 TST $TMPO ;SEE IF STATUS EQ 0 FROM PORT A. 
042476 001414 BEQ 76$ +4 IF ZERO 
042500 013737 001224 001240 MOV PORTA,PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
042506 013737 001172 001126 MOV STMP3,$BDDAT ;"BAD DATA’ - ERROR TYPE OUT 
042514 113760 001224 000010 MOVB PORTA,RMCS2(RO) SELECT PORT 
042522 005737 001166 TST STMP1 :SEE IF STATUS "EQ ZERO FROM PORT B. 
042526 001012 BNE 77$ :BR IF NOT 
042530 012737 177777 001254 76S: MOV #-1,RELERR sSET ‘RELEASE ERROR’ INDICATOR 
042536 012760 000011 900000 MOV #11,RMCS1(RO) [CLEAR THE DRIVE 
042544 012760 000013 000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
042552 104026 EMT 26 
042554 013737 001170 001126 77$: MOV STMP2,$BDDAT ;LOOK FOR BIT —e WHEN RMDS READ 
042562 013737 001224 001240 MOV PORTA, PTNBR :CHANGE PORT NUMBER 
042570 042737 100000 001126 BIC #ATA,SBDDAT :DON'T CHECK THE ATIN BIT 
042576 023737 001124 001126 CMP $GDDAT,$BDDAT :ALL BITS OK 
042604 001401 BEQ 78% :BR IF OK FROM PORT A, 
042606 104007 EMT 7 
042610 013737 001172 001126 78$: MOV STMP3,$BDDAT :CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
042616 013737 001226 001240 MOV PORTB,PTNBR >CHANGE PORT NUMBER 
042624 042737 100000 001126 BIC #ATA, $BDDAT DON'T CHECK THE ATIN BIT 
042632 023737 001124 001126 CMP $GDDAT,SBDDAT SEE IF READ OK FROM PORT B. 
042640 001401 BEQ 79$ :BR IF OK 
042642 104007 EMT 7 


042644 000240 79$: NOP 
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CZRMRAO RMOS/3/2 DU POR TST i 
131 RESET ATTENTION 'B' BY GO TEST SEQ 0118 
;VERIFY THAT ATTENTION FOR PORT A IS STIL SET 
042646 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT P 
042654 013737 001224 001240 MOV PORTA,PTNBR ;MOVE P PORT ADDRESS TO LOCATION FOR TYPEOUT 
042662 005037 001250 CLR CKERR ;CLEAR THE ‘CHECK ERROR" INDICATOR 
042666 016037 000012 001126 MOV RMDS(RO), SBODAT oie Le CONTENTS, OF RDS 
042674 012737 000012 001122 MOV #RMDS , SBDADR M REGISTER ADDRESS OF ERROR MESSAGE 
042702 060037 001122 ADD RO, $BDADR MADD RH/RM BASE ADDRESS 
042706 012737 106000 001124 MOV WATA,SGDDAT WHAT REGISTER SHOULD BE 
042714 013737 001126 001164 MOV SRDDAT,STMPO —«; MOVE REGISTER CONTENTS TO ‘STMPO' 
042722 042737 077777 001164 BIC W*CATA,STMPO ;SAVE SPECIFIED BITS 
042730 023737 001124 001164 CMP SGDDAT,STMPO ° ;COMPARE THE BITS 
042736 001414 BEQ 80$ BR IF OK 
042740 013737 001126 001174 MOV SBDDAT,STMP4 = COPY ‘BAD DATA’ 
042746 042737 100000 001174 BIC HATA, STMPG :CLEAR THE MASKED BITS 
042754 053737 001174 001124 BIS $TMP4,$GDDAT OR’ WITH GOOD DATA FOR TYPEOUT 
042762 104062 EMT 62 
042764 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
042770 000240 80$: NOP 
042772 000004 1$: SCOPE 
1057 
1071 
1072 SERRATE EEE EHKKHKKKRKHKKKAKKAKKeAKKKeKehkkeeees 
:FTEST 32 TEST RESET ATTENTION ‘A’ & 'B' BY MASSBUS INIT 
:+VERIFY THAT MASSBUS CLEAR RESETS BOTH PORT'S ATTENTION BITS WHEN THE 
; DRIVE IS IN NEUTRAL. 
'* 
:* A. SET THE ATTENTION BITS FOR BOTH PORTS. 
** 
;* B. VERIFY THAT THE DRIVE IS IN NEUTRAL. 
:* C. ISSUE A MASSBUS INIT. VERIFY THAT BOTH ATTENTION BITS HAVE 
:* RESET. : 
$ LAR RSSSASASSSARARARRASASRRSASEE SERRE S SEES E RE REBAR ESE RRR ERASERS | 
042774 1$132: 
042774 005737 001300 TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
043000 001406 BEQ 2$ BR IF NOT 
043002 100002 BPL 1$ :BR IF JUST ENTERED TEST 
043004 000137 003110 JMP EXEC ;RETURN & GET NEXT TEST NUMBER 
043010 012737 177777 001300 1S: MOV #-1, KYBCTL :SET SINGLE TEST INDICATOR 
043016 012737 043032 001106 28: MOV WIEST S2, SLPADR :SETUP SCOPE LOOP ADDRESS 
043024 012737 043032 001110 NOE WTEST32,$LPERR SETUP ERROR LOOP ADDRESS 
043032 112737 000032 001102 MOVB #32, $TSTNM ;MOVE #32 TO TEST NUMBER 
043040 012706 001100 MOV WSTACK, SP ZLOAD THE STACK POINTER 
ios 043044 012737 000031 001176 MOV #25. ,STIMES ::D0 25. ITERATIONS 
1108 
;SET ATTENTION BITS FOR BOTH PORTS 
043052 113760 001224 000010 MOVB = PORTA, RMCS2(RO) ;SELECT PORT 64$ 
043060 005760 000012 66$: TST RMDS (RO) ;MAKE SURE DRIVE AVAILABLE 
043064 001775 BEQ 66$ 
043066 012760 177777 000014 MOV #-1,RMERT(RO) FORCE ERRORS 
043074 005060 000014 CLR RMER1 (RO) :CLEAR THE ERRORS 
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132 TEST RESET ATTENTION ‘A* & 'B' BY MASSBUS INIT SEQ 0119 
043100 Bh e768 001226 000010 MOV PORTB,RMCS2(RO) * SELECT THE OTHER PORT 
043106 005760 000012 64$: 1ST RMDS(RO) sWAIT FOR DRIVE TO TIMEOUT 
043112 001775 BEQ 64% 4 9 IF DRIVE HASN'T TIMED OUT 
043114 012760 177777 000014 MOV #-1,RMERI(RO)  ;FORCE og B - PORT 65$ 
043122 005060 900014 CLR RMER1 (RO) ;CLEAR THE ERRORS 
043126 113760 001224 000010 MOVB PORTA, RMCS2(RO) SEL ECT PORT ‘'64$"' fae 
043134 005760 000012 65$: TST RMDS (RO) ;WAIT FOR DRIVE TO TIMEOUT 
043140 001775 BEQ 65$ ;BR IF DRIVE HASN'T TIMED OUT 
;CONFIRM THAT BOTH ATTENTION BITS ARE SET 
043142 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
043150 013737 001224 001240 MOV PORTA,PTNBR ;MOVE yoy ADDRESS TO LOCATION FOR TYPEOUT 
043156 005037 001250 CLR CKERR CLEAR THE "CHECK ERROR’ INDICATOR 
043162 016037 000012 001126 MOV RMDS(RO),SBDDAT ;GET CONTENTS OF RMDS 
043170 012737 000012 001122 MOV #RMDS , SBOADR ; FORM REGISTER gt OF ERROR MESSAGE 
043176 060037 001122 ADD RO, SBDADR ADD RH/RM BASE ADDRESS 
043202 012737 100000 001124 MOV MATA, SGDDAT WHAT REGISTER SHOULD BE 
043210 013737 001126 001164 MOV SBDDAT ,STMPO sMOVE REGISTER CONTENTS TO ‘$STMPO' 
043216 042737 077777 001164 BIC #*CATA,STMPO SAVE SPECIFIED BITS 
0432246 023737 001124 001164 CMP SGDDAT,$TMPO —_. THE BITS 
043232 001414 BEQ 67$ BR IF OK 
043234 013737 001126 001174 MOV SBDDAT,STMP4 ;COPY "BAD DATA‘ 
043242 042737 100000 001174 BIC MATA,STMPG :CLEAR THE MASKED BITS 
043250 053737 001174 001124 BIS STMP4 ,SGDDAT OR’ WITH GOOD DATA FOR TYPEOUT 
043256 104010 EMT 10 
043260 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
043264 000240 67$: NOP 
043266 005737 001250 TST CKERR WAS ATTN BIT FOR PORT A SET ? 
043272 001402 BEQ -+6 :BR IF IT WAS 
043274 000137 044250 JMP 1$ :BYPASS REST OF TEST IF NOT 
043300 113760 001226 000010 MOVB ob § RMCS2(RO) ;SELECT PORT B 
043306 013737 001226 001240 MOV ORTB,PTNBR ;MOVE 4+ ADDRESS TO LOCATION FOR TYPEOUT 
043314 005037 001250 CLR CKER R :CLEAR THE ‘CHECK ERROR' INDICATOR 
043320 016037 000012 001126 MOV RMDS(RO) ,SBDDAT i: CONTENTS OF RMDS 
043326 012737 000012 001122 MOV #RMDS , SBOADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
043334 060037 001122 ADD RO, SBOADR ADD RH/RM — ADDRESS 
043340 012737 100000 001124 MOV #ATA,SGDDAT WHAT REGISTER SHOULD BE 
043346 013737 001126 001164 MOV SBDDAT ,STMPO ;MOVE REGISTER. CONTENTS TO ‘STMPO' 
043354 042737 077777 001164 BIC #*CATA,STMPO SAVE SPECIFIED BITS 
043362 023737 001124 001164 CMP SGDDAT,STMPO COMPARE THE BITS 
043370 001414 BEQ 69$ BR IF OK 
043372 013737 001126 001174 MOV SBDDAT ,STMP4 :COPY “BAD DATA’ 
043400 042737 100000 001174 BIC MATA, STMPG ;CLEAR THE MASKED BITS 
043406 053737 001174 001124 BIS STMP4 ,SGDDAT :OR' WITH GOOD DATA FOR TYPEOUT 
043414 104010 EMT 10 
043416 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
043422 000240 69$: NOP 
043424 005737 001250 TST CKERR WAS ATIN hs FOR PORT B SET ? 
043430 001402 BEQ -+6 :BR_ IF IT WAS 
043432 000137 044250 JMP 1$ :BYPASS REST OF TEST IF NOT 
sVERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
043436 005037 001254 CLR RELERR CLEAR THE "RELEASE ERROR ' INDICATOR 
043442 012737 000012 001122 MOV #RMDS ,SBDADR :FORM THE ADDRESS OF RMDS FOR TYPEOUT 
043450 060037 001122 ADD RO,$BDADR :ADD THE 1/0 BASE ADDRESS 


132 


CZRMRAO iy taf 
TEST R 


043454 


043772 


043776 


044004 


044032 


2 
ES 


001164 
001224 


001166 


177777 
000011 
000013 


001170 


001224 
001124 


001172 
001226 
001124 


001254 
044250 


CoOoooooocecKneo fe, 


oQooooooooo°oo 
AAPSMMOLLSOOCOF 


001126 
001240 
000010 


001240 
001126 
000010 


001254 
000000 
000000 


001126 
001240 
001126 


001126 
001240 
001126 


wo 
= 
zo 


71$: 


728%: 


73$: 


74$: 


75$: 
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“MASSBUS INIT 


#111700, $GDDAT 


p ; COMPARSION CONSTANT 

PORTA,RMCS2(RO) iSELECT PORT A. 
RMDS(RO),STMP2 ;GET THE aye aaate a FROM PORT A. 
#PIP!WRL!OM,STMP ; ARES 
STMP2,STMPO :COPY IT INTO. '$ 
WATA!VV,STMPO ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTB,RMCS2(RO) ;SELECT PORT 

DS(RO) ,STMPS pice THE rahe “STATUS REGISTER FROM PORT B. 
#PIP!WRL!OM,STM :CLEAR DONT CARES 
STMP3,STMP1 PTCOPY T INTO 'STMP1" 
WATA'VV, STMP1 CLEAR. PORT DEPENDENT BITS FROM THE C 
STHPO, STHPT ils os ae REGISTER THE SAME FROM. BOTH PORTS ? 
ae sae ah ot ARE THE SAME: ARE THEY ZERO ? 
46 
75$ s;BYPASS THE REST OF THE CHECKS 
STMP2,$BDDAT ;SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
PORTB,PTNBR ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
xpd S RMCS2(RO) SELECT PORT B. 
$TMPO SEE IF STATUS EQ 0 FROM PORT A. 
72$ BR IF ZERO 
PORTA,PTNBR + SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
STMP3,$BDDAT "BAD DATA’ go ERROR TYPE OUT 
PORTA,RMCS2(RO) SELECT PART A 
STMP1 :SEE IF STATUS EQ ZERO FROM PORT B. 
73% ;BR_IF NOT 
#-1,RELERR ;SET "RELEASE ERROR’ INDICATOR 
#11,RMCS1(RO) CLEAR THE DRIVE 
aaa ;RELEASE THE DRIVE 
STMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
PORTA,PTNBR : CHANGE PORT NU MBER 
$SGDDAT,SBDDAT ;ALL BITS OK 
ag :BR IF OK PROM PORT A. 
STMP3,$BDDAT ;CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
PORTB,PTNBR ; CHANGE PORT NUMBER 
SGDDAT,SBDDAT +s IF READ OK FROM PORT B. 
75$ R IF OK 
— nie iw ey NEUTRAL ? 
.+ 
1$ BYPASS RESET OF TEST 


ISSUE THE MASSBUS INIT 


MOV 


MCLR,RMCS2(RO) 


ISSUE A MASSBUS INIT 


CHECK THE ATTENTION BITS OF BOTH PORTS 


ay RMCS2(RO) 


;SELECT PORT A 


PORTA,PTNBR ; MOVE = ADDRESS TO LOCATION FOR TYPEQUT 


CKERR : 
RMDS(RO) ,SBDDAT 


#RMDS , SBDADR 


;CLEAR THE "CHECK ERROR INDICATOR 
;GET CONTENTS OF RMDS 
;FORM REGISTER ADDRESS OF ERROR MESSAGE 


SEQ 0120 


CZRMRAO RMO5/3/2 DU POR TST 1 


132 


TEST RESET ATTENTION 'A* & 'B* BY MASSBUS INIT 


RO, SBDADR 
SGDDAT 
SBDDAT ,STMPO 


#*CATA,STMPO 
+ ne alate 


6 
SBDDAT,STMP4 
MATA, STMPG 
| al ta 
CKERR 


PORTB,RMCS2(RO) 
oeenn’ ,PTNBR 


CKER : 
RMDS(RO), oe 


#RMDS , SBOADR 
RO, $BDADR 
$GODAT 
SBDDAT,STMPO 
#*CATA,STMPO 
SGDDAT ,STMPO 
78$ 


SBDDAT ,STMP4 
MATA, STMPG 
| ileal 


5 
CKERR 
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tna oe RH/RM BASE nb 

sWHAT REGISTER SHOULD BE 

‘MOVE REGISTER CONTENTS TO ‘STMPO' 
;SAVE SPECIFIED BIT 

on i ok THE Bits” 


;COPY "BAD DATA’ 

:CLEAR THE MASKED BITS 

:'OR' WITH GOOD DATA FOR TYPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 


;SELECT PORT B 


;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


;CLEAR THE ‘CHECK ERROR' INDICATOR 
eins CONTENTS OF RMDS 
REGISTER ADDRESS OF ERROR MESSAGE 

PADD RH/RM BASE ADDRESS 
s;WHAT REGISTER SHOULD BE 

:MOVE REGISTER + taaata TO "$TMPO' 
sSAVE SPECIFIED BIT 

; COMPARE THE Bits: 
:BR IF OK 


COPY "BAD DATA’ 

;CLEAR THE MASKED BIiS 

:'OR' WITH GOOD DATA FOR TYPEOUT 

SET THE REGISTER COMPARE ERROR INDICATOR 


;LOOP ? 


is 2000S eee OPP RRR RRR SERS ESE EES ERPS SSE SSESOSESSOOOCLOSLAL. © 


RESET ATTENTION ‘A’ & 'B' BY RMAS 


VERIFY THAT BOTH ATTENTION BITS CAN BE RESET BY WRITING THE 
;*APPROPRIATE BIT IN THE ATTENTION SUMMARY REGISTER. 


044040 060037 001122 ADD 
044044 005037 001124 CLR 
044050 013737 001126 001164 MOV 
044056 042737 077777 001164 BIC 
044064 023737 001124 001164 CMP 
044072 001414 BEQ 
044074 013737 001126 001174 MOV 
044102 042737 100000 001174 BIC 
044110 053737 001174 001124 BIS 
044116 104051 EMT 
044120 005137 001250 COM 
044124 000240 76$: NOP 
044126 113760 001226 000010 MOVB 
044134 013737 001226 001240 MOV 
044142 095037 001250 CLR 
044146 016037 000012 001126 MOV 
044154 012737 000012 001122 MOV 
044162 060037 001122 ADD 
044166 005037 001124 CLR 
044172 013737 001126 001164 MOV 
044200 042737 077777 001164 BIC 
044206 023737 001124 001164 CMP 
044214 001414 BEQ 
044216 013737 001126 001174 MOV 
044224 042737 100000 001174 BIC 
044232 053737 001174 001124 BIS 
044240 104051 EMT 
044242 005137 001250 COM 
044246 000240 78$: NOP 
044250 000004 1$: SCOPE 

#TEST 33 

s@ 4, 

:* B 

a@ £, 
044252 +8133: 
044252 005737 001300 TST 
044256 0140 BEQ 
044260 100002 BPL 
044262 000137 003110 JMP 
044266 012737 177777 001300 1$: MOV 
044274 012737 044310 001106 2$: MOV 
044302 012737 044310 001110 MOV 
044310 TEST33: 
044310 112737 000033 001102 MOVB 
044316 012706 001100 MOV 


SET THE ATTENTION BITS FOR BOTH PORTS. 
VERIFY THE DRIVE IS IN NEUTRAL. 


WRITE THE DRIVE'S ATTENTION BIT IN RMAS. VERIFY 


THAT BOTH ATTENTION BITS ARE RESET AS SEEN BY RMAS. 


nth h hee PPR RRR RRR REERA EERE SEES ESE CORSE CEOS OCLOSLOS 


ae tt more ONLY SINGLE TEST ? 


;BR_IF JUST ENTERED TEST 
sRETURN & GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
:SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 


sMOVE #33 TO TEST NUMBER 
;LOAD THE STACK POINTER 


CZR 
133 


MRAO 


1128 
1172 


RMO5/3/2 DU POR TST 1 


RESET ATTENTION "A" & ‘B' 


044322 012737 000002 


044330 760 001224 


760 000012 
760 177777 


000012 
760 177777 


760 000012 
044416 


044420 001224 


013737 


001124 
001126 
100000 
001174 
001250 
001250 


045374 


7 

7 

? 

7 

: 001124 
7 001126 
7 100000 
7 001174 
0 

7 

0 


001250 
044700 00 
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001176 


000010 


000014 
000010 


000014 
000010 


001174 
001174 


MOV 


#2.,STIMES 


3:D0 2. ITERATIONS 


sSET ATTENTION BITS FOR BOTH PORTS 


66$: 


64$: 


65$: 


BEQ 


PORTA,RMCS2(RO) 
RMDS (RO) 


66% 
#-1 ,RMER1(RO) 


SELECT PORT 64$ 
MAKE SURE DRIVE 


:FORCE ERRORS 


AVAILABLE 


RMERT(RO) ;CLEAR THE ERRORS 
PORTB,RMCS2(RO) ;SELECT THE OTHER PORT 
RMDS (RO) ;WAIT FOR DRIVE TO TIMEOUT 
648 ;BR IF DRIVE HASN'T TIMED OUT 
#-1,RMERIC(RO)  ;FORCE ERRORS one PORT 65$ 
RMER1(RO) ;CLEAR THE ERROR 
PORTA,RMCS2(RO) :SELECT PORT pare AGAIN 

R s;WAIT FOR DRIVE TO TIMEOUT 


RMDS (RO) 
65$ 


;BR IF DRIVE HASN'T TIMED OUT 


ee BOTH ATTENTION BITS ARE SET 


67$: 


69$: 


PORTA,RMCS2(RO) 


PORTA,PTNBR 
CKE 


RR ; 
cores tobane 


#RMDS ,SBDADR 


$GDDAT,$TMPO 
7$ 


;SELECT PORT A 
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
;CLEAR THE ‘CHECK ERROR’ INDICATOR 
:;GET CONTENTS OF RMDS 
FORM REGISTER ADDRESS OF ERROR MESSAGE 
:ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
;MOVE REGISTER CONTENTS TO ‘STMPOQ' 
:SAVE SPECIFIED BITS 
COM ty ® THE BITS 


6 ;BR 

SBDDAT ,STMP4 :COPY "BAD DATA‘ 

MATA, STMPS :CLEAR THE MASKED BITS 

1 al scams :'OR' WITH GOOD DATA FOR TYPEOUT 

CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
CKERR WAS ATA SET FOR A?? 

+6 Bad - CONTINUE 

1$ BYPASS y 3 * TEST 

PORTB,RMCS2(RO) ;SELECT PORT B 

PORTB,PTNBR ; MOVE 4-4 ADDRESS TO LOCATION FOR TYPEOUT 
CKERR ;CLEAR THE ‘CHECK ERROR" INDICATOR 

mat takes :;GET CONTENTS OF RMDS 

WRMDS.SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO, $BDADR ;ADD RH/RM BASE ADDRESS 

WATA,SGDDAT ;WHAT REGISTER SHOULD BE 

rat tts ;MOVE REGISTER CONTENTS TO ‘STMPO’ 


SGDDAT. STMPO 
69% 

SBDDAT ,STMP4 
MATA, STMPG 
peat 


CKERR 


sSAVE SPECIFIED BITS 
+ ate 3 THE BITS 


OK 
:COPY "BAD DATA’ 
CLEAR THE MASKED BITS 
:'OR' WITH GOOD DATA FOR TyPEOUT 


SET THE REGISTER COMPARE ERROR INDICATOR 


SEQ 0122 
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2R 
133 RESET ATTENTION 'A' & 'B' By «SEQ 0123 
044702 005737 001250 TST CKERR :WAS ATA SET FOR 87? 
044706 001402 BEQ +6 :YES = CONTINUE 
044710 000137 045374 JMP 1$ “BYPASS REST OF TEST 
;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
044714 005037 001254 CLR RELERR ;CLEAR THE "RELEASE ERROR ' INDICATOR 
044720 012737 000012 001122 MOV i fF — ; FORM THE ADDRESS OF RMDS FOR TYPEOUT 
944726 060037 001122 ADD $ ADD THE 1/0 BASE ADDRESS 
044732 012737 111700 001124 MOV Witt 00. SGDDAT ; COMPARS 1 ON CONSTANT 
044740 113760 001224 000010 MOVB PORTA,RMCS2(RO) :SELECT PORT A. 
044746 016037 000012 001170 MOV RMDS(RO),$TMP2 GET THE DRIVE STATUS REGISTER FROM PORT A. 
044754 042737 024001 001170 BIC #PIP'WRL'OM,$TMP2 :CLEAR DONT CARES 
044762 013737 001170 001164 MOV STMP2,$TMPO :COPY IT INTO '$TMPO' 
044770 042737 100100 001164 BIC #ATA'VV,STMPO ‘CLEAR PORT DEPENDENT BITS FROM THE COPY 
044776 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 
045004 016037 000012 001172 MOV RMDS (RO) »STIMP3 “GET THE DRIVE STATUS REGISTER FROM PORT B. 
045012 042737 024001 001172 BIC #PIP'WRL'OM,$TMP$ :CLEAR DONT CARES 
045020 013737 001172 001166 MOV STMP3,$TMP1 :COPY IT INTO '$TMP1* 
045026 042737 100100 001166 BIC HATALVV, STMP1 ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
045034 023737 001164 001166 CMP $TMPO,S$TMP1 :1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
045042 001006 BNE 71$ :BR IF NOT 
045044 005737 001164 TST $STMPO sREGISTERS ARE THE SAME: ARE THEY ZERO ? 
045050 001045 BNE 73$ ‘BR IF NOT 
045052 104046 EMT 46 
045054 000137 045240 JMP 75$ ;BYPASS THE REST OF THE CHECKS 
045060 013737 001170 001126 718: MOV STMP2,$BDDAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
045066 013737 001226 001240 MOV PORTB,PTNBR sSEIZING cont IF TEST SHOWS DRIVE NOT IN NEUTRAL 
045074 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT B. 
045102 005737 001164 TST $STMPO ;SEE IF STATUS EQ 0 FROM PORT A. 
045106 001414 BEQ 72$ :BR IF ZERO 
045110 013737 001224 001240 MOV PORTA,PTNBR EIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
045116 013737 001172 001126 MOV STMP3,$BDDAT : TBA D DATA’ FOR ERROR TYPE OUT 
045124 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
045132 005737 001166 TST STMP1 sSEE IF STATUS - EQ ZERO FROM PORT B. 
045136 001012 BNE 73$ :BR IF NOT 
045140 012737 177777 001254 72$: MOV #-1,RELERR ;SET "RELEASE ERROR’ INDICATOR 
045146 012760 000011 000000 MOV #11,RMCS1(RO) CLEAR THE DRIVE 
045154 012760 000013 000000 MOV #13,RMCS1(RO)  :RELEASE THE DRIVE 
045162 104026 EMT 26 
045164 013737 001170 001126 738: MOV STMP2,SBDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
045172 013737 001224 001240 MOV PORTA,PTNBR ; CHANGE PORT NUMBER 
045200 023737 001124 001126 CMP $GDDAT,SBDDAT s;ALL BITS OK ? 
045206 001401 BEQ 74% ;BR IF OK FROM PORT A, 
045210 104007 EMT 7 
045212 013737 001172 001126 74$: MOV $TMP3,$BDDAT ;CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
045220 013737 001226 001240 MOV PORTB,PTNBR :CHANGE PORT NUMBER 
045226 023737 001124 001126 CMP $GDDAT,S$BDDAT ;SEE IF READ OK FROM PORT B. 
045234 001401 BEQ 75$ ‘BR IF OK 
045236 104007 EMT ? 
045240 000240 ; 75$: NOP 
045242 005737 001254 TST RELERR sWAS DRIVE IN NEUTRAL ?? 
045246 001402 BEQ +6 YES! ! 
045250 000137 045374 JMP 1$ ;BYPASS REST OF TEST 


sWRITE THE ATTENTION BIT . 


ZR 
133 


MRAO 
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RESET ATTENTION ‘A* & ‘B" By 
045254 013760 001236 000016 MOV ASR1,RMAS(RO) 
;VERIFY THAT BOTH ATTENTIONS “ RESET BY itis: RMAS 
045262 016037 000016 601126 MOV RMAS(RO) , $BDD 41% ATTENTION SUMMARY 
045270 033737 001236 001126 BIT ASRI, $BDDAT Is THE ATTENTION RESET ?? 
045276 001414 BEQ 2$ YES 
045300 010037 001122 MOV RO, SBDADR SETUP. REGISTER ADDRESS 
045304 062737 000016 001122 ADD #RMAS ,SBDADR 
045312 013737 001126 001124 MOV $SBDODAT ,SGDDAT ;SETUP EXPECTED DATA 
045320 043737 001236 001124 BIC ASR1,$GDDAT RESET THIS DRIVES BIT 
045326 104060 EMT 60 
045330 2$: 
sWAIT FOR THE DRIVES TO RELEASE BY TIMEOUT 
045330 113760 001224 000010 MOVE PORTA,RMCS2(RO) ;SELECT PORT A 
045336 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
045344 005760 000012 3$: TST RMDS (RO) sMAKE SURE DEVICE IS AVAILABLE 
045350 001775 BEQ 3$ 
045352 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
045360 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
045366 005760 000012 4$: TST RMDS (RO) ;MAKE SURE DEVICE IS AVAILABLE 
045372 001775 BEQ 4$ 
045374 000004 1$: SCOPE 
PRR ee eee ehhh eee eee ee 
is TEST 34 PORT ‘A’ ALTERNATE ATTENTION PATH TEST 
VERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 
"ff 
:* A. SET THE ATTENTION BIT FOR PORT ‘A’, 
**® 
&. SEIZE THE DRIVE THROUGH PORT ‘B* BY WRITING O°S INTO RMDS. 
+ C. READ IRE ATTENTION REGISTER & VERIFY THAT THE ATTENTION BIT 
if FOR THE DRive IS SET. 
** 
*: (ARERR RBRASAALZASRASARRRARARRASRESERERPRRE RRR RRR ERRRESESERRRRRE RESO E OS | 
045376 1S134: 
045376 005737 001300 TST KYBCTL s;PERFORMING ONLY SINGLE TEST ? 
045402 001406 BEQ 2$ ;BR IF NOT 
045404 100002 BPL 1$ ‘BR IF JUST ENTERED TEST 
045406 000137 003110 JMP EXEC RETURN & GET NEXT TEST NUMBER 
045412 012737 177777 001300 1$: MOV #-1,KYBCTL 3SET SINGLE TEST INDICATOR 
045420 012737 045434 001106 2$: MOV ATES TSG, $LPADR ;SETUP SCOPE LOOP ADDRESS 
pe aeee 012737 045434 001110 reste MOV MTEST34,$LPERR ;SETUP ERROR LOOP ADDRESS 
045434 112737 000034 001102 " MOVB #34, $TSTNM 7MOVE #34 TO TEST NUMBER 
045442 912706 001100 MOV #STACK,SP ;LOAD THE STACK POINTER 
045446 012737 000031 001176 MOV #25. ,STIMES 3:D0 25. ITERATIONS 


CLEAR ATTENTION BITS FOR BOTH PORTS 


045454 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT #A 
045462 005060 000012 CLR RMDS (RO) SEIZE THE DRIVE 


SEQ 0124 
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PORT ‘A’ ALTERNATE ATTENTION PATH TEST SEQ 0125 


045466 012760 000011 000000 MOV #i1,RMCSI(RO) ISSUE DRIVE CLEAR 
045474 012760 000013 000000 MOV #13.RMCS1(RO)  =RELEASE THE DRIVE 

045502 113760 001226 000010 MOVB  =PORTB,RMCS2(RO) :SELECT PORT #B 

045510 005060 000012 CLR RMDS (RO) :SEIZE THE DRIVE THROUGH PORT 'B' 
045514 012760 -000011 000000 MOV #11,RMCSI(RO) ISSUE DRIVE CLEAR 

045522 012760 000013 000000 MOV #13, RMCS1(RO) RELEASE THE DRIVE 

045530 113760 001224 000010 MOVB  PORTA,RMCS2(RO) ':SELECT PORT A 

045536 012760 177777 000014 MOV #-1,RMERIC(RO) ;SET ERRORS TO FORCE ATIN BIT ON PORT A 
045544 005060 000014 CLR RMER1(RO) ;CLEAR THE ERRORS 

045550 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT 8B 

045556 005760 000012 1$: TST RMDS (RO) ;WAIT FOR DRIVE TO gy? - — 
045562 001775 BEQ 1$ :BR IF STILL SEIZED BY P 

045564 012737 000016 001122 MOV #RMAS, — ;FORM ADDRESS OF ATIN REO. IF — 
045572 060037 001122 ADD RO, $BDAD [ADD THE ADDRESS BASE 

045576 013737 001236 001124 MOV ASR1 eGDDAT *G00D DATA FOR ERROR MESSAGE 

045604 013737 001236 001166 MOV ASR1 *STMP1 ;MAKE DATA COMPARE MASK 

045612 005137 001166 COM STMPi : COMPLEMENT T 

045616 012737 045652 001110 MOV #2$,$LPERR LOAD LOOP 7 ERROR ADDRESS 

045624 113760 001226 000010 MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 

045632 013737 001226 001240 MOV PORTB,PTNBR :MOvE PORT ADDRESS TO LOCATION FOR TYPEOUT 
045640 013737 001226 001242 MOV PORTB,SEIZPT + {SEIZED* PORT ADDRESS 

045646 005060 000012 CLR RMDS(RO) SEIZE THE DRIVE THROUGH PORT B 

045652 016037 000016 001126 2%: MOV RMAS (RO) ,$BDDAT GET THE CONTENTS OF THE ATTENTION REG 
045660 013737 001126 001164 MOV SBDDAT,STMPO ;PUT CONTENTS ve WORKING LOCATION 
045666 043/737 001166 001164 BIC STMP1,$TMPO ;CLEAR OTHER BIT 

045674 023737 001124 001164 CMP $GDDAT, STMPO sSEE IF ATIN BIT “on DRIVE SET 

045702 001401 BEQ 3$ :BR IF SET 

045704 104053 EMT 53 
045706 3$: 

;RELEASE THE DRIVE FROM PORT B 
045706 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
045714 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
045722 012760 000013 000000 MOV #13,RMCSI(RO) ;ISSUE RELEASE THROUGH PORT B 
;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 

045730 005037 001254 CLR RELERR ;CLEAR THE ‘RELEASE ERROR * INDICATOR 
045734 012737 000012 001122 MOV #RMDS ,SBDADR :FORM THE ADDRESS ) RMDS FOR TYPEOUT 
045742 060037 001122 ADD RO, $BDA DR ADD THE 1/0 BASE ADDRESS 

045746 012737 011700 001124 MOV #MOL 'PGM!DPR!DRYi VV, S$GDDAT ;COMPARISON CONSTANT 

045754 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT P PORT A. 

045762 016037 000012 001170 MOV RMDS (RO), STMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
045770 042737 024001 001170 BIC #PIP'WRL'OM,STMP pd ;CLEAR DONT CARES 

045776 013737 001170 001164 MOV STMP2,STMPO :COPY IT INTO ‘$TMPO' 

46004 042737 100100 001164 BIC #ATA'VV,STMPO ;CLEAR PORT i BITS FROM THE COPY 
046012 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 

046020 016037 000012 001172 MOV RMDS(RO) ,STMP3 -GET THE DRIVE STATUS REGISTER FROM PORT B. 
046026 042737 024001 001172 BIC #PIP'WRL'OM,STMPS ;CLEAR DONT CARES 

046034 013737 001172 001166 MOV STMP3,STMP1 ; COPY IT’ INTO ‘STMP1° 

046042 042737 100100 001166 BIC #ATA'VV, STMP1 *CLEAR PORT DEPENDENT BITS FROM THE C 
046050 023737 001164 001166 CMP $TMPO, $TMP1 31S THE STATUS REGISTER THE SAME rho aot PORTS ? 
046056 001006 BNE 64$ ‘BR IF NOT 

046060 005737 001164 TST STMPO REGISTERS ARE THE SaME: ARE THEY ZERO ? 
046064 001045 BNE 66$ :BR IF NOT 

046066 104046 EMT 46 

046070 000137 046270 JMP 68% ;BYPASS THE REST OF THE CHECKS 
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046074 013737 001170 001126 648: MOV $STMP2,$BDDAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
046102 013737 001226 001240 MOV PORTB,PTNBR sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
046110 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 
046116 005737 001164 TST STMPO ;SEE IF io EQ 0 FROM PORT A. 
046122 001414 BEQ 6 ;BR IF ZERO 
046126 01373? 001224 001240 MOV PORTA,PTNBR ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
046132 013737 001172 001126 MOV $TMP3,$BDDAT ;"BAD DATA‘ gs ERROR TYPE OUT 
046140 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
046146 005737 001166 TST STMP1 :SEE IF — "EQ ZERO FROM PORT B. 
046152 001012 BNE 66$ :BR IFN 
046154 012737 177777 001254 65$: MOV #-1,RELERR SET RELEASE ERROR’ INDICATOR 
046162 012760 000011 000000 MOV #11,RMCS1(RO) ;CLEAR THE DRIVE 
046170 012760 000013 000000 MOV #13, RMCS1(RO) RELEASE THE DRIVE 
046176 104026 EMT 26 
046200 013737 001170 001126 66$: MOV STMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
046206 013737 001224 001240 MOV PORTA,PTNBR drs PORT NUMBER 
046214 042737 100000 001126 BIC #ATA,SBDDAT =DON'T CHECK THE ATTN BIT 
046222 023737 001124 001126 CMP $GDDAT,$BDDAT ALL BITS OK 
046230 001401 BEQ 67$ ;BR IF OK PROM PORT A. 
046232 104007 EMT 7 
046234 013737 001172 001126 67$: MOV $STMP3,$BDDAT ;CHECK RMDS FOR BIT FAILURES = FROM PORI B. 
046242 013737 001226 001240 MOV PORTB,PTNBR ; CHANGE PORT NUMBER 
046250 042737 100000 001126 BIC #ATA,SBDDAT ;DON'T CHECK THE ATIN BIT 
046256 023737 001124 001126 CMP $GDDAT,$BDDAT :SEE IF READ OK FROM PORT B. 
046264 001401 BEQ 68$ ;BR IF OK 
046266 104007 EMT 7 
046270 000240 68$: NOP 
046272 000004 SCOPE ;LOOP ? 
1223 
1236 
1237 SURAT ETTORE 
;#TEST 35 PORT ‘B® ALTERNATE ATTENTION PATH TEST 
:*VERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 
a. A SET THE ATTENTION BIT FOR PORT ‘B'. 
‘* 
:* B. SEIZE THE DRIVE THROUGH PORT ‘A* BY WRITING O'S INTO RMDS. 
se 6¢ READ THE ATTENTION REGISTER & VERIFY THAT THE ATTENTION BIT 
:* FOR THE DRIVE IS SET. 
| oaeaseibnindheebnsnenindeEtRehehnbbbenseeebetanenbeneeunitnn 
046274 TS1T35: 
046274 005737 001300 TST KYBCTL eer cate ONLY SINGLE TEST ? 
046300 001406 BEQ 2$ :BR F NOT 
046302 100002 BPL 1$ :BR IF JUST ENTERED TEST 
046304 000137 003110 JMP EXEC ;RETURN & GET NEXT TEST NUMBER 
046310 012737 177777 001300 1$: MOV #-1,KYBCTL SET SINGLE TEST INDICATOR 
046316 012737 046332 001106 2$: MOV #TEST35,$ CPADR :SETUP SCOPE LOOP ADDRESS 
44 3 012737 046332 001110 res19s MOV MTEST35,$LPERR ;SETUP ERROR LOOP ADDRESS 
046332 112737 000035 001102 MOVB #35,STSTNM sMOVE #35 TO TEST NUMBER 
046340 012706 001100 MOV MSTACK,SP ;LOAD THE STACK POINTER 
1258 046344 012737 000031 001176 MOV #25. ,$TIMES :3D0 25. ITERATIONS 
1239 
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ALTERNATE ATTENTION PATH TEST SEQ 0127 
;CLEAR ATTENTION BITS FOR BOTH PORTS 
046352 113760 001224 000010 MOVB  =PORTA,RMCS2(RO) ;SELECT PORT #A 
046360 005060 000012 CLR RMDS (RO) :SEIZE THE DRIVE 
046364 012760 000011 000000 MOV #11,RMCS1(RO) SISSUE DRIVE CLEAR 
046372 012760 000013 000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
046400 113760 001226 000010 MOVB PORTB,RMCS2(RO) SELECT PORT #B 
046406 005060 000012 CLR RMDS (RO) ‘SEIZE THE DRIVE THROUGH PORT 'B' 
046412 012760 000011 000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
046420 012760 000013 000000 MOV #13,RMCS1(RO)  :RELEASE THE DRIVE 
046426 113760 001226 000010 MOVE _—sPORTB, RACS2(RO) sSELECT PORT B 
046434 012760 177777 000014 MOV #-1,RMERT( :SET ERRORS TO FORCE ATTN BIT ON PORT B 
046442 005060 000014 CLR RMER1 (RO) :CLEAR THE ERRORS 
046446 113760 001224 000010 MOVB  PORTA,RMCS2(RO) “:SELECT PORT A 
046454 005760 000012 1$: TST RMDS (RO) :WAIT FOR DRIVE TO RETURN 10 NEUTRAL 
046460 001775 BEQ 1$ :BR IF STILL SEIZED BY PORT B 
046462 012737 000016 001122 MOV #RMAS,SBDADR FORM ADDRESS OF ATTN REG IF ERROR 
046470 060037 001122 ADD RO, $BDADR [ADD THE ADDRESS BASE 
046474 013737 001236 001124 MOV ASRI, SCDDAT :GOOD DATA FOR ERROR MESSAGE 
046502 013737 001236 001166 MOV ASR1.$TMP1 ‘MAKE DATA COMPARE MASK 
046510 005137 001166 COM STMP{ : COMPLEMENT IT 
046514 012737 046550 001110 MOV #2$,S$LPERR LOAD LOOP ON ERROR ADDRESS 
046522 113760 001224 000010 MOVB PORTA, RMCS2(RO) °: SELECT PORT 
046530 013737 001224 001240 MOV PORTA, PTNBR :MOvE PORT ADDRESS TO LOCATION FOR TYPEOUT 
046536 013737 001224 001242 MOV PORTA,SELZPT ;"SEIZED' PORT ADDRESS 
046544 005060 000012 CLR RMDS (RO) [SEIZE THE DRIVE THROUGH PORT A 
046550 016037 000016 001126 2s: MOV RMAS (RO) . sSBDDAT [GET THE CONTENTS OF THE ATIENTION REG 
046556 013737 001126 001164 MOV $BDDAT,STMPO =: PUT CONTENTS INTO WORKING LOCATION 
046564 043737 001166 001164 BIC $TMP1, Pea ‘CLEAR OTHER BIT 
046572 023737 001124 001164 CMP $GDDAT,STMPO -:SEE IF ATIN BIT FOR DRIVE SET 
046600 001401 BEQ 3$ ‘BR IF SET 
046602 104053 EMT 53 
046604 3$: 
;RELEASE THE DRIVE FROM PORT A 
046604 113760 001224 000010 MOVB = PORTA,RMCS2(RO) ;SELECT PORT A 
046612 013737 001224 001240 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
046620 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORI A 
;VERIFY THAT THE DRIVE 1S STILL IN NEUTRAL 
046626 005037 001254 CLR RELERR :CLEAR THE "RELEASE ERROR * INDICATOR 
046632 012737 000012 001122 MOV #RMDS,SBDADR §: FORM THE ADDRESS OF RMDS FOR IYPEOUT 
046640 060037 001122 ADD RO, $BDADR ‘ADD THE 1/0 BASE ADDRESS 
046644 012737 011700 001124 MOV #MOL'PGM!DPR!DRY'VV,SGDDAT ;COMPARISON CONSTANT 
046652 113760 001224 000010 MOVB —s~ PORTA, RACS2(RO) =SELECT PORT A. 
046660 016037 000012 001170 MOV RMDS(RO),$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
046666 042737 024001 001170 BIC Sree ue fom eines CLEAR DONT CARES 
046674 013737 001170 001164 MOV STMP2, STMPO :COPY IT INTO 'S$TMP 
046702 042737 100100 001164 BIC MATA'VV,STMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
046710 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT 
046716 016037 000012 001172 MOV RMDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
046724 042737 024001 001172 BIC #PIP'WRL'OM,$TMP3 CLEAR DON i CARES 
046732 013737 001172 001166 MOV STMPS,STMP1 7COPY IT INTO '$TM 
046740 042737 100100 001166 BIC MATA'VV,STMP1 =: CLEAR PORT DEPENDENT BITS FROM THE COPY 
046746 023737 001164 001166 CMP STMPO,STMP1 ‘IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
046754 001006 BNE 64$ ‘BR IF NOT 
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135 


046756 


047170 


047172 


047206 


001401 


000004 


EM 
00 
100008 
0 
01 


001164 


177777 
000011 
000013 
001170 
001124 
001172 


001124 
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00010 


001254 
000000 
000000 
001126 
001126 
001126 


001126 


64$: 


66$: 


67$: 


68$: 


TST $TMPO sREGISTERS ARE THE SAME: ARE THEY ZERO ? 

BNE 66% :BR IF NOT 

EMT 46 

JMP 68$ BYPASS THE REST OF THE CHECKS 

MOV STMP2,$BDDAT SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 

MOV PORTB,PTNBR tity ti +o} IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 

TST STMPO SEE IF STATUS EQ 0 FROM PORT A. 

BEQ 65$ :BR IF ZERO 

MOV PORTA,PTNBR sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOV STMP3,$BDDAT ;"BAD DATA’ FOR ERROR TYPE OUT 

MOVB PORTA,RMCS2(RO) ;SELECT 


PORT A. 
TST STMP1 :SEE IF STATUS EQ ZERO FROM PORT B. 
BNE 66$ BR IF NOT 
MOV #-1,RELERR :SET "RELEASE ERROR’ INDICATOR 
MOV W11,RMCS1(RO) ;CLEAR THE DRIVE 
MOV  ameeaiinaes: ;RELEASE THE DRIVE 


MOV STMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
; CHANGE PORT NUMBER 

:DON'T CHECK THE ATTN BIT 

CMP $GDDAT, $BDDAT ALL BITS OK 

BEQ 67$ :BR IF OK PROM PORT A. 


7 
MOV STMP3,$BDDAT ;CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
MOV PORTB,PTNBR > CHANGE PORT NUMBER 


BIC #ATA,SBDDAT ;DON'T CHECK THE ATTN BIT 
CMP $GDDAT,$BDDAT ;SEE IF READ OK FROM PORT B. 
BEQ 68$ :BR IF OK 

EMT 7 

NOP 

SCOPE LOOP ? 


a3 A000 Pee OPP PRR RRR ESE S ERS E SESE CCE S CESSES OSOCOLOCSLLLCL AS SY 


;*TEST 36 SET ATTENTION ‘A’ BY COMMMAND TEST 


: TEST 4 ee OF THE PORT A AND PORT B ATTENTION BITS AFTER A 


-* 
-* 
'* 
-* 
-* 
:* 
-* 
-* 
-* 
:* 
is 


ake eeeaaeean 


136: 


1$: 


o > 


C. 


ISSUE A OFFSET COMMAND THROUGH PORT ‘A’. 


WAIT FOR THE OFFSET COMMAND TO COMPLETE ('DRY' TO BECOME 
*1"). VERIFY THAT THE ATTENTION BIT FOR PORT bel 1S SET AND 
THAT THE ATTENTION BIT FOR PORT ‘B* IS NOT SET 


RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT a DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 


Ae P eee PPR RR RR RRS REERS ERE SEER EES E SESE ESEOCECSOCLOOSCOCOOOSS 


TST KYBCTL 48 eh ah ONLY SINGLE ‘EST ? 
2s ZBR NOT 


BPL 1$ :BR IF JUST ‘eins TEST 
JMP EXEC ;RETURN & GET NEXT TEST NUMBER 
MOV #-1 , KYBCTL SET SINGLE TEST INDICATOR 


SEQ 0128 


047340 


_ 047346 


047354 
047362 


047364 


047472 


047474 
047502 
047510 


et ot ot Oo ot tO 


oo-ooo~-Coo°0o— 
WWW UWP 
NINON™N 
oa 
oO 


012760 


032760 
001774 


1 


001224 


000015 


000200 


001250 


001124 


001126 
100000 
001174 


001250 


001224 
001224 
000013 
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001106 
001110 


001102 
001176 


000010 
000000 
000000 
000010 


000000 
001242 
000000 


000012 


000010 
001240 
000000 


2$: MOV #TEST36,SLPADR ;SETUP SCOPE LOOP ADDRESS 
nore MOV WTEST36,$LPERR :SETUP ERROR LOOP ADDRESS 
" MOVB «#36, STSTNM sMOVE #36 TO TEST NUMBER 
MOV #STACK,SP ‘LOAD THE STACK POINTER 
MOV #25. $TIMES +:D0 25. ITERATIONS 


;CLEAR ATTENTION BITS FOR BOTH PORTS 
MOVB PORTA,RMCS2(RO) ;SELECT PORT #A 
CLR RMDS (RO) ;SEIZE THE DRIVE 
MOV W11,RMCS1(RO) ;ISSUE DRIVE CLEAR 
MOV #13,RMCS1(RO) [RELEASE THE DRIVE 
MOVB PORTB,RMCS2(RO) ;SELECT PORT #B 
CLR RMDS (RO) SEIZE THE DRIVE pee PORT 'B' 
MOV #11, RMCS1(RO) capiEn DRIVE CLEAR 
MOV M13,RMCS1(RO) ;RELEASE THE se 
MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
MOV PORTA,PTNBR :move PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV PORTA,SEIZPT "SEIZED' PORT ADDRESS 


:D0 A OFFSET THROUGH PORT A 
MOV M1S,RMCS1(RO) ;ISSUE A OFFSET INSTRUCTION THROUGH PORT A 
WAIT FOR DRIVE TO FINISH 


BIT WDRY,RMDS(RO)  ;WAIT FOR DRIVE TO FINISH 
BEQ 76 ;BR IF NOT FINISHED 


;CONFIRM THAT ATTENTION IS SET FOR PORT A 


CLR CKERR ;CLEAR THE ‘CHECK — INDICATOR 

MOV RMDS(RO) , SBDDAT ims CONTENTS OF RMDS 

MOV #RMDS , SBDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 

ADD RO, $BDADR ADD RH/RM BASE ADDRESS 

MOV HATA, SGDDAT WHAT REGISTER SHOULD BE 

MOV SBDDAT, $TMPO sMOVE REGISTER CONTENTS TO ‘STMPO' 

BIC #*CATA,STMPO SAVE SPECIFIED BITS 

CMP SGDDAT,STMPO ;COMPARE THE BITS 

BEQ 64$ :B F OK 

MOV SBDDAT,.STMP4 ;COPY “BAD DATA' 

BIC MATA, STMP4 ;CLEAR THE MASKED BITS 

Pat | ea eaamaatas :"OR® WITH GOOD DATA FOR TYPEOUT 

COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
64$: NOP 


sRELEASE THE DRIVE FROM PORT A 
MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FUR (YPEOUT 
MOV #13,RMCSI(RO) ISSUE RELEASE THROUGH PORT A 


VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


SEQ 0129 
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ET ATTENTION ‘A’ BY COMMMAND TEST SEQ 0130 
047516 005037 001254 CLR RELERR sCLEAR THE "RELEASE ERROR ' INDICATOR 
047522 012737 000012 001122 MOV #RMDS , SBDADR i FORM THE ADDRESS o oneet FOR TYPEOUT 
047530 060037 001122 ADD RO, SBDADR ADD THE 1/0 BASE A 
047534 012737 011700 001124 MOV #MOL'PGM'DPRIDRYIVV. SGDDAT COMPARISON CONSTANT 
047542 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT 
047550 016037 000012 001170 MOV RMDS(RO),$TMP2 <GET THE DRIVE "STATUS + + ate FROM PORT A. 
047556 042737 024001 001170 BIC #PIP!WRL!OM,STMP :CLEAR DON a CARES 
047564 013737 001170 001164 MOV STMP2 ,STMPO ;COPY IT INTO ‘STM 
047572 042737 100100 001164 BIC MATA!VV,STMPO ;CLEAR "Son DEPENDENT BITS FROM THE COPY 
047600 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT P 
047606 016037 000012 001172 MOV RMDS(RO),STMP3 GET THE DRIVE "STATUS REGISTER FROM PORT B. 
047614 042737 024001 001172 BIC #PIP!WRL'OM,STMPS sCLEAR DONT CARES 
047622 013737 001172 001166 MOV STMP3,STMP1 ;COPY IT INTO 'STMP1' 
047630 042737 100100 001166 BIC HATA'VV,STMP1 © CLEAR PORT DEPENDENT BITS FROM THE COPY 
047636 023737 001164 001166 CMP STMPO,STMP1 :1S THE STATUS REGISTER THE SAME FROM BOTH PORTS 7? 
047644 001006 BNE 66$ :BR IF NOT 
047646 005737 001164 TST $STMPO sREGISTERS ARE THE SAME: ARE THEY ZERO ? 
047652 001045 BNE 68$ :BR IF NOT 
047654 104046 EMT 46 
047656 000137 050042 JMP 70$ :BYPASS THE REST OF THE CHECKS 
047662 013737 001170 001126 66S: MOV STMP2,$BDDAT sSET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
047670 013737 001226 001240 MOV PORTB,PTNBR s SEIZING oa IF TES) SHOWS DRIVE NOT IN NEUTRAL 
047676 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 
047704 005737 001164 TST $TMPO :SEE IF STATUS EQ 0 FROM PORT A. 
047710 001414 BEQ 67$ BR IF ZERO 
047712 013737 001224 001240 MOV PORTA,PTNBR SEIZING PORT IF TEST SHOWS ae NOT IN NEUTRAL 
047720 013737 001172 001126 MOV STMP3,$BDDAT :'BAD DATA’ om ERROR TYPE QUT 
047726 113760 001224 000010 MOVB PORTA,RMCS2(RO) :SELECT PORT 
047734 005737 001166 TST STMP1 sSEE IF STATUS "EQ ZERO FROM PORT B. 
047740 001012 BNE 68$ BR IF NOT 
047742 012737 177777 001254 678: MOV #~1,RELERR ;SET "RELEASE ERROR' INDICATOR 
047750 012760 000011 000000 MOV W11,RMCS1(RO) [CLEAR THE DRIVE 
047756 012760 000013 000000 MOV #13,RMCS1(RO) [RELEASE THE DRIVE 
047764 104026 EMT 26 
047766 013737 001170 001126 68$: MOV STMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
047774 013737 001224 001240 MOV PORTA, PTNBR CHANGE PORT NU MBER 
050002 023737 001124 001126 CMP $GDDAT,SBDDAT ALL BITS OK 
050010 001401 BEQ 69$ :8R IF OK PROM PORT A. 
050012 104007 EMT 7 
050014 013737 001172 001126 69$: MOV STMP3,$BDDAT sCHECK RMDS FOR BIT FAILURES - FROM PORT B. 
050022 013737 001226 001240 MOV PORTB,PTNBR CHANGE PORT NUMBER 
050030 023737 001124 001126 CMP SGDDAT,SBDDAT  ;SEE IF READ OK FROM PORT B. 
050036 001401 BEQ 70$ BR IF OK 
050040 104007 EMT 7 
050042 000240 70$: NOP 
050044 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
050052 013737 . 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CONFIRM THAT ATTENTION IS NOT SET FOR PORT B 
050060 005037 001250 CLR CKERR CLEAR THE “CHECK ERROR’ INDICATOR 
050064 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
050072 012737 000012. 001122 MOV #WRMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
050100 060037 001122 ADD RO,$BDADR :ADD_RH/RM BASE ADDRESS 
050104 005037 001124 CLR $GDDAT :WHAT REGISTER SHOULD BE 
050110 013737 001126 001164 MOV SBDDAT,STMPO sMOVE REGISTER CONTENTS TO *$TMPO" 
050116 042737 077777 001164 BIC M*CATA,STIMPO = ;SAVE SPECIFIED BITS 
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05/3/2 DU P 
SET ATTENTION 'A' BY COMMMAND TEST SEQ 0131 
050124 023737 001124 001164 CMP SGDDAT,STMPO =; COMPARE THE BITS 
050132 001414 BEQ 71$ F OK 
050134 013737 001126 001174 MOV SBDDAT,STMP4 :COPY ‘BAD DATA’ 
050142 042737 100000 001174 BIC HATA, STMPG :CLEAR THE MASKED BITS 
050150 053737 001174 001124 BIS STMP4 ,SGDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
050156 104032 EMT 32 
050160 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
050164 000240 71$: NOP 
050166 000004 SCOPE :LOOP ? 
1289 
1305 
1306 FRR EERE EEE EET EEA KEKE REKEKKRRKKERK AER 
: TEST 37 SET ATTENTION 'B' BY COMMMAND TEST 
:*TEST THE OPERATION OF THE PORT A AND PORT B ATTENTION BITS AFTER A 
°*@ 
:* A. ISSUE A RECALIBRATE COMMAND THROUGH PORT 'B'. 
*“® 
7* B. WAIT FOR THE RECALIBRATE COMMAND TO COMPLETE ('DRY’ TO BECOME 
7* "1'), VERIFY THAT THE ATTENTION BIT FOR POR] 'B' IS SET AND 
+e THAT THE ATTENTION BIT FOR PORT ‘A’ IS NOT SET. 
**® 
:* (C. RELEASE THE DRIVE THROUGH PORT 'B'. VERIFY THAT THE DRIVE RETURNED 
te TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
*® 
*: (AERBRBSARASAASAASAASAASSLARAASZASASLAELASCEAEESASESESESESALALSEASZAESESERSAS ES 
050170 1$137: 
050170 005737 001300 TST KYBCTL : PERF ORMING ONLY SINGLE TEST ? 
050174 001406 BEQ 2$ :BR IF NOT 
050176 100002 BPL 1$ :BR IF JUST ENTERED TEST 
050200 000137 003110 JMP EXEC sRETURN & GET NEXT TEST NUMBER 
050204 012737 177777 001300 1S: MOV #-1,KYBCTL :SET SINGLE TEST INDICATOR 
050212 012737 050226 001106 2%: MOV #TEST37,$LPADR ;SETUP SCOPE LOOP ADDRESS 
050220 012737 050226 001110 a MOV #TEST37,$LPERR :SETUP ERROR LOOP ADDRESS 
050226 112737 000037 001102 MOVB #37, $TSTNM :MOVE #37 TO TEST NUMBER 
050234 012706 001100 MOV #STACK,SP ‘LOAD THE STACK POINTER 
ts 050240 012737 000031 001176 MOV #25. ,STIMES ::D0 25. ITERATIONS 
1308 
ZCLEAR ATTENTION BITS FOR BOTH PORTS 
050246 113760 001224 000010 MOVB  PORTA,RMCS2(RO) ;SELECT PORT #A 
050254 005060 000012 CLR RMDS (RO) :SEIZE THE DRIVE 
050260 012760 000011 000000 MOV #11,RMCS1(RO)  ;ISSUE DRIVE CLEAR 
50266 012760 000013 000000 MOV #13,RMCS1(RO)  ;RELEASE THE DRIVE 
050274 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT #B 
050302 005060 000012 CLR RMDS (RO) :SEIZE THE DRIVE THROUGH PORT 'B' 
050306 012760 000011 000000 MOV #11,RMCS1(RO) : ISSUE DRIVE CLEAR 
050314 012760 000013 000000 MOV #13,RMCS1(RO) [RELEASE THE DRIVE 
050322 113760 001226 000010 MOVB  PORTB,RMCS2(RO) “:SELECT PORT B 
050330 013737 001226 001240 MOV PORTB,PTNBR ;MOvE POR? ADDRESS TO LOCATION FOR TYPEOUT 
050336 013737 001226 001242 MOV PORTB, SEIZPT :"SEIZED' PORT ADDRESS 


;DO A OFFSET THROUGH PORT B 
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ATTENTION "B* BY COMMMAND TEST 


000000 


000012 


—_ — —» 
NNN AOOMWw nr 
5 a er Set ee ee No 


000010 
001240 
000000 


001122 
001124 


001126 
001240 
000010 


s ISSUE A OFFSET INSTRUCTION THROUGH PORT B 


ony FOR DRIVE TO FINISH 
R IF NOT FINISHED 


;CONFIRM THAT ATTENTION IS SET FOR PORT B 


64$: 


: VERIFY 


66$: 


LEAR THE "CHECK con INDICATOR 
GET CONTENTS OF RMDS 
; FORM REGISTER ng te OF ERROR MESSAGE 
ADD RH/RM BASE ADDRESS 


HATA, SGDDAT WHAT REGISTER SHOUL D BE 


sMOVE REGISTER CONTENTS TO ‘$TMPO' 
; SAVE a Sd BITS 
+ COMPA RE THE BITS 
bR IF OK 
:COPY "BAD DATA’ 
;CLEAR THE MASKED BITS 
:"OR’ WITH GOOD DATA FOR TYPEOUT 


:SET THE REGISTER COMPARE ERROR INDICATOR 


;SELECT PORT B 


PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


ISSUE RELEASE THROUGH PORT B 


sCLEAR THE ‘RELEASE ERROR ' INDICATOR 
+ FORM THE ADDRESS OF RMDS FOR TYPEOUT 
THE 1/0 BASE ADDRESS 


ADD 
#MOL'PGM'DPR!DRY ‘VV, ogy ES ieee CONSTANT 


:SELECT P 
“GET THE ORIVE "STATUS REGISTER FROM PORT A. 
2 NT CARES 


:CLEA 

sCOPY IT INTO 

‘CLEAR PORT DEPENDENT BITS FROM THE COPY 

:SELECT PORT 

“GET THE DRIVE STATUS REGISTER FROM PORT B. 
mp :CLEAR DONT CARES 

>COPY IT INTO "$TMP1 

:CLEAR PORT DEPENDENT BITS FROM THE COPY 

iS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 


:BR IF NO 
: REGISTERS ARE THE SAME: ARE THEY ZERO ? 


:BYPASS THE REST OF THE CHECKS 
:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 


MOV #15,RMCS1(RO) 

;WAIT FOR DRIVE TO FINISH 
BIT #ORY ,RMDS(RO) 
BEQ 6 
CLR CKERR :C 
MOV RMDS(RO) , SBDDAT 
MOV #RMDS , SBDADR 
ADD RO, SBDADR 
MOV 
MOV SBDDAT ,$TMPO 
BIC #*CATA,STMPO 
CMP SGDDAT.STMPO 
BEQ 64$ 
MOV SBDDAT,STMP4 
BIC HATA, SIMPG 
BIS STMP4 ,S$GDDAT 
EMT 32 
COM CKERR 
NOP 

;RELEASE THE DRIVE FROM PORT B 
MOVB = PORTB, RMCS2(RO) 
MOV 
MOV #13,RMCS1(RO) 
THAT THE DRIVE IS STILL IN NEUTRAL 
CLR RELERR 
MOV #RMDS , SBDADR 
ADD RO, $BDADR 
MOV 
MOVB = PORTA, RMCS2(RO) 
MOV RMDS(RO) ,STMP2 
BIC #PIP!WRL'OM,STM 
MOV STMP2,$STMPO 
BIC #ATA'VV, STMPO 
MOVB = PORTB, RMCS2(RO) 
MOV RMDS (RO) ;STMPS 
BIC #PIP!WRL ‘OM, 
MOV STMP3, StMPTS 
BIC WATA'VV, STMP1 
CMP $TMPO,STMP1 
BNE 66$ 
TST STMPO 
BNE 68$ 
EMT 46 
JMP 70$ 
MOV STMP2,$BDDAT 
MOV PORTB,PTNBR 
MOVB = PORTB.RMCS2(RO) 


> SEIZING +ry IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 


SEQ 0132 
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137 SET ATTENTION "B* BY COMMMAND TEST SEQ 0133 
050702 005737 001164 TST STMPO ;SEE IF STATUS EQ 0 FROM PORT A. 
050706 001414 BEQ 7$ 7BR IF ZERO 
050710 013737 001224 001240 MOV PORTA,PTNBR sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
050716 013737 001172 001126 MOV STMP3,S$BDDAT ;"BAD DATA* FOR ERROR TYPE OUT 
050724 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A. 
050732 005737 001166 TST STMP 1 ;SEE IF STATUS EQ ZERO FROM PORT B. 
050736 001012 : BNE 68$ 3;BR IF NOT 
050740 012737 177777 001254 67$: MOV #-1,RELERR ;SET 'R RELEASE ERROR' INDICATOR 
050746 012760 000011 000000 MOV #11,RMCS1(RO) ;CLEAR THE DRIVE 
050754 012760 000013 000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
050762 104026 EMT 26 
050764 013737 001170 001126 68$: MOV $TMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
050772 013737 001224 001240 MOV PORTA,PTNBR ; CHANGE PORT NU MBER 
051000 023737 001124 001126 CMP SGDDAT,SBDDAT ALL BITS OK 
051006 001401 BEQ 69$ ;BR IF OK PROM PORT A 
051010 104007 EMT 7 
051012 013737 001172 001126 69%: MOV STMP3,S$BDDAT ;CHECK RMDS yor BIT FAILURES = FROM PORT B. 
051020 013737 001226 001240 MOV PORTB,PTNBR ; CHANGE PORT NUMBER 
051026 023737 001124 001126 CMP $GDDAT ,$BDDAT > SEE IF READ OK FROM PORT B. 
051034 001401 BEQ 70% ‘BR IF OK 
051036 104007 EMT 7 
051040 000240 70$: NOP 
051042 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
051050 013737 001224 001240 MOV PORTA,PTNBR MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
;CONFIRM THAT ATTENTION IS NOT SET FOR PORT A 
051056 005037 001250 CLR CKERR :CLEAR THE ‘CHECK — INDICATOR 
051062 016037 000012 001126 MOV at takuae 3GET CONTENTS OF RMDS 
051070 012737 000012 001122 MOV #RMDS ,SBDADR ORM REGISTER ADDRESS OF ERROR MESSAGE 
051076 060037 001122 ADD RO,$BDADR ODD RH/RM BASE ADDRESS 
051102 005037 001124 CLR $GDDAT ;WHAT REGISTER SHOULD BE 
051106 013737 001126 001164 MOV $BDDAT,STMPO MOVE REGISTER CONTENTS TO ‘STMPO' 
051114 042737 077777 001164 BIC #*CATA,STMPO SAVE a dl BITS 
051122 023737 001124 001164 CMP SGDDAT,STMPO ; COMPARE THE BITS 
051130 001414 BEQ 71% ‘BR F OK 
051132 013737 001126 001174 MOV SBDDAT,STMP4 ;COPY "BAD DATA’ 
051140 042737 100000 001174 BIC MATA, STMPS ;CLEAR THE MASKED BITS 
051146 053737 001174 001124 BIS STMP4 ,SGDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
051154 104032 EMT 32 
051156 137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
051162 000240 71$: NOP 
051164 000004 SCOPE ;LOOP ? 
1312 
1321 
1322 PLR ATER A Ree eee eee eee 
1323 Ad 
;*VERIFY THAT A CHANGE IN UNIT READY SETS THE ATTENTION 
:* FOR BOTH PORTS. 
:*THIS FUNCTION IS PERFORMED DURING THE SET VOLUME VALID TEST. 
-# 
1324 MIIIIIIII TTI TTI LI LITT iii iii iii iii iii 
1325 
1334 
1335 PP Pee eee eee eee RATATAT Tee 
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137 SET ATTENTION ‘B' BY COMMMAND TEST SEQ 0134 


1336 ye 
S*VERIFY THAT ~ hagas SETS WHEN THE DRIVE SWITCHES AFTER 
: BEING RELEASED 


:+THIS 1S PERFORMED DURING THE ‘'SET PORT REQUEST TEST"’ 


Ett staid lidsinadibdeaiagpaienteeiieinadgsauiiaditiedasisila matinee 
1338 
1359 
1360 eu a. ten Ue eet ae en eee 
SSTEST 40 PORT 'A* SET VOLUME VALID TEST 
sOVERIFY THAT VOLUME VALID CAN BE SET FOR THE PORT UNDER TEST. 
re A. WITH PORT "A' SELECTED, RESET AND SET ‘'UNIT READY'' 
7 STATUS USING DIAGNOSTIC MODE. VERIFY THAT THE DRIVE 
3* IS SEIZED AND aye" "VOLUME VALID" IS RESET AND 
7* ATTENTION IS SET 
** 
3° @. ISSUE A DRIVE CLEAR COMMAND AND A READ IN eg 
s* COMMAND TO THE DRIVE THAT WAS SEIZED IN STEP A 
3* Hg Ae THAT ATTENTION IS RESET AND THAT VOLUME “VALID 
“* 
** 
B® ta RELEASE THE DRIVE FROM rent "A" AND SELECT THE DRIVE FOR 
* PORT 'B'. VERIFY THAT ATTENTION IS STIL SET AND THAT 
5* VOLUME VALID IS STIL RESET. 
“*® A 
3* D. ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO 
3* PORT ‘B' THEN RELEASE PORT 'B'. 
PET TITIISITIIT IIIT STITT LETT TTT TTI TET TT TTT T TTT TTTTte 
051166 TST40: 
051166 005737 001300 TST KYBCTL rar aie” ONLY SINGLE TEST ? 
051172 001406 BEQ 2% R IF NOT 
051174 100002 BPL 1% ‘BR IF JUST ENTERED TEST 
051176 000137 003110 JMP EX c ;RETURN & GET NEXT TEST NUMBER 
051202 012737 177777 001300 I$: MOV #-1,KYBCTL SET SINGLE TEST INDICATOR 
051210 012737 051224 001106 2$: MOV ATC RS $LPADR ;SETUP SCOPE LOOP ADDRESS 
g31¢16 012737 051224 001110 TEST&O MOV MTEST4O,$LPERR ;SETUP ERROR LOOP ADDRESS 
051224 112737 000040 001102 ; MOVB #40,$TSTNM sMOVE #40 TO TEST NUMBER 
051232 012706 001100 MOV #STACK,SP ;LOAD THE STACK POINTER 
1361 051236 012737 000031 001176 MOV #25. ,$TIMES 3:D0 25. ITERATIONS 
1403 
;SEIZE PORT A BY WRITING THE MAINTENANCE REGISTER, RMMR1. SET 
;AND RESET "MAINTENANCE UNIT READY'' TO CAUSE VOLUME VALID TO 
;RESET AND ATTENTION TO SET. 
;SEIZE THE DRIVE THROUGH PORT A 
051244 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
051252 013737 001224 001242 MOV PORTA,SEIZPT ;STORE SEIZING 4 git ADDRESS 
051260 012760 000001 000024 MOV #OMD, RMMR1 (RO) sWRITE DMD INTO RMMR1 
051266 013737 001226 001244 MOV PORTB, OPPRT ‘OPPOSITE’ PORT ADDRESS 
051274 012760 001001 000024 MOV #OMD ‘MUR .RMMR1 (RO) ;SET UNIT READY 
051302 012760 000000 000024 MOV #0,RMMR1 (RO) RESET DIAGNOSTIC MODE 
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140 "A' SET VOLUME VALID TEST SEQ 0135 


VERIFY THAT ATA = 1 "wae = 0 FOR Ay RT A 
CLR CKERR 


051310 005037 001250 ; CLEAR nt "CHECK ERROR’ INDICATOR 
051314 016037 000012 001126 MOV RMDS(RO) , SBDDAT 4g CONTENTS OF RMDS 
051322 012737 000012 001122 MOV #RMDS , SBOADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
051330 060037 001122 ADD RO, SBOADR ADD RH/RM BASE ADDRESS 
051334 012737 100000 001124 MOV HATA, SGDDAT SWHAT REGISTER SHOULD BE 
051342 013737 001126 001164 MOV SBDDAT,$TMPO MOVE REGISTER CONTENTS TO "$TMPO' 
051350 042737 077777 001164 BIC #*CATA,STMPO ;SAVE SPECIFIED BITS 
051356 023737 001124 001164 CMP SGDDAT ,STMPO ;COMPARE THE BITS 
051364 001414 BEQ 66$ :BR IF OK 
051366 013737 001126 001174 MOV SBDDAT,STMP4 ;COPY ‘BAD DATA’ 
051374 042737 100000 001174 BIC MATA, STMPS ;CLEAR THE MASKED BITS 
051402 053737 001174 001124 BIS STMP4 ,SGDDAT :OR' WITH GOOD DATA FOR TYPEOUT 
051410 104064 EMT 64 
051412 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
051416 000240 668: NOP 
051420 005037 001250 CLR CKERR CLEAR THE ‘CHECK ne al INDICATOR 
051424 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
051432 012737 000012 001122 MOV #RMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
051440 060037 001122 ADD RO,$BDADR ;ADD RH/RM BASE ADDRESS 
051444 005037 001124 CLR $GDDAT WHAT REGISTER SHOULD BE 
051450 013737 001126 001164 MOV SBDDAT ,STMPO ;MOVE REGISTER CONTENTS TO ‘$STMPO' 
051456 042737 177677 001164 BIC #*CVV,$TMPO ;SAVE SPECIFIED BITS 
051464 023737 001124 001164 CMP SGDDAT,$TMPO ;COMPARE THE BITS 
051472 001414 BEQ 68$ :BR IF OK 
051474 013737 001126 001174 MOV SBDDAT ,STMP4 COPY "BAD DATA’ 
051502 042737 000100 001174 BIC AVV,STMP4 :CLEAR THE MASKED BITS 
051510 053737 001174 001124 BIS STMP4 ,SGDDAT ;'OR' WITH GOOD DATA FOR TYPEOUT 
051516 104065 EMT 
051520 005137 001250 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
051524 000240 68$: NOP 

; ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND - PORT A 
051526 012760 000011 000000 MOV #11,RMCS1(RO) DRIVE CLEAR 
051534 012760 000021 000000 MOV #21, “RMCS1(RO) :READ IN PRESET 

VERIFY ATA = 0 AND VV = 1 FOR PORT A 
051542 005037 001250 CLR CKERR ;CLEAR THE ‘CHECK ERROR’ INDICATOR 
051546 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
051554 012737 000012 001122 MOV #RMDS ,SBDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
051562 060037 001122 ADD RO, $BDADR ADD RH/RM rey ADDRESS 
051566 012737 000100 001124 MOV #VV,SGDDAT sWHAt REGISTER SHOULD BE 
051574 013737 001126 001164 MOV SBDDAT,$TMPO| —_; MOVE REGISTER. CONTENTS TO ‘STMPO' 
051602 042737 177677 001164 BIC #*CVV,STMPO ; SAVE setae tun BITS 
051610 023737 001124 001164 CMP SGDDAT,$TMPO ;COMPARE THE BITS 
051616 001414 BEQ 70$ ;BR IF OK 
051620 013737 001126 001174 MOV SBDDAT ,STMP4 COPY ‘BAD DATA’ 
051626 042737 000100 001174 BIC AVV,STMP4 ;CLEAR THE MASKED BITS 
051634 053737 001174 001124 BIS STMP4 ,SGDDAT :"OR' WITH GOOD DATA FOR TYPEOUT 
051642 104013 EMT 13 
051644 005137 001250 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
051650 000240 70$: NOP 
051652 005037 001250 CLR CKERR : CLEAR ba "CHECK ERROR' INDICATOR 
051656 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
051664 012737 000012 001122 MOV WRMDS ,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
051672 060037 001122 ADD RO,$BDADR ;ADD RH/RM BASE ADDRESS 
051676 012737 011700 001124 MOV #MOL'PGM'DPR'DRY'VV,SGDDAT ;WHAT REGISTER SHOULD BE 
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PORT "A' SET VOLUME VALID TEST SEQ 0136 
051704 013737 001126 001164 MOV SBDDAT ,STMPO 7 MOVE EHS CONTENTS TO ‘STMPO' 
051712 042737 024007 001164 BIC #°C153770,$TMPO ;SAVE SPECIFIED BITS 
051720 023737 001124 001164 CMP $SGDDAT,$TMPO 2 te THE BITS 
051726 001414 BEQ 728 OK 
051730 013737 001126 001174 MOV SBDDAT ,STMP4 ‘Copy "BAD DATA‘ 
051736 042737 153770 001174 BIC #153770,$TMP4 CLEAR THE MASKED BITS 
051744 053737 001174 001124 BIS ? lia $GDDAT :"OR' WITH GOOD DATA FOR TYPEOUT 
051752 104010 EMT 10 
051754 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
051760 000240 728: NOP 

RELEASE PORT A AND SELECT PORT B 

;VERIFY THAT ATA = 1 AND VV = 0 FOR PORT B 

sRELEASE THE DRIVE FROM PORT A 
051762 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
051770 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
051776 012760 000013 000000 MOV M#15,RMCS1(RO) ;1SSUE RELEASE THROUGH PORT A 

VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
052004 005037 001254 CLR RELERR ;CLEAR THE ‘RELEASE ERROR * INDICATOR 
052010 012737 000012 001122 MOV #RMDS ,SBDADR ;FORM THE ADDRESS OF RMDS FOR TYPEOUT 
052016 060037 001122 ADD RO, $BDADR ADD THE I/0 BASE ADDRESS 
052022 012737 011600 001124 MOV #MOL!PGM'DPR!DRY, " SGDDAT ; COMPARISON CONSTANT 
052030 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A. 
052036 016037 000012 001170 MOV RMDS(RO),STMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
052044 042737 024001 001170 BIC #PIP!WRL'OM,STMP2 CLEAR DONT CARES 
052052 013737 001170 001164 MOV STMP2,STMPO ;COPY IT INTO ‘$TMPO' 
052060 042737 100100 001164 BIC MATA'VV,STMPO ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
052066 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 
052074 016037 900012 001172 MOV RMDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
052102 042737 024001 001172 BIC #PIP!WRL!OM,STMP :CLEAR DONT CARES 
052110 013737 001172 001166 MOV STMP3,STMP1 ;COPY IT INTO ‘STMP1° 
052116 042737 100100 001166 BIC MATA'VV,STMP1 ;CLEAR PORT DEPENDENT BITS FROM THE COP 
052124 023737 001164 001166 CMP STMPO,STMP1 21S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
052132 001006 BNE 74$ BR IF NOT 
052134 005737 001164 TST $STMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
052140 001037 BNE 76$ BR IF NOT 
052142 104046 EMT 46 
052144 000137 052330 JMP 78$ BYPASS THE REST OF THE CHECKS 
052150 013737 001170 001126 74$: MOV STMP2,SBDDAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
052156 013737 001226 001240 MOV PORTB,PTNBR sSEIZING Aa IF TEST SHOWS DRIVE NOT IN NEUTRAL 
052164 113760 001226 000010 MOVB PORTB,RMCS2(RO) SELECT PORT B. 
052172 005737 001164 TST $TMPO SEE IF STATUS EQ 0 FROM PORT A. 
052176 001414 BEQ 75$ BR IF ZERO 
052200 013737 001224 001240 MOV PORTA,PTNBR ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
052206 013737 001172 001126 . MOV STMP3,$BDDAT ;"BAD DATA’ FOR ERROR TYPE OUT 
052214 113760 001224 000010 MOVB PORTA.RMCS2(RO) :SELECT PORT A 
052222 005737 001166 TST STMP1 :SEE IF STATUS "EQ ZERO FROM PORT B. 
052226 001004 BNE 76% BR IF NOT 
052230 012737 177777 001254 75$: MOV #-1,RELERR SET "RELEASE ERROR’ INDICATOR 
052236 104022 EMT 22 
052240 013737 001170 001126 76$: MOV STMP2, SBDDAT ;LOOK FOR Bit oe WHEN RMDS READ 
052246 013737 001224 001240 MOV PORTA,PTNBR ;CH ~ PORT NUMBER 
052254 042737 100100 001126 BIC WATA'VV,$BDDAT DON'T CHECK ATIN BIT OR vv BIT 
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5/3/2 Du ; 
PORT ‘A* SET VOLUME VALID TEST SEQ 0137 
052262 023737 001124 001126 CMP $GDDAT,SBDDAT ;ALL BITS OK 
052270 001401 BEQ 77$ BR IF OK FROM PORT A. 

052272 104007 EMT 7 
052274 013737 001172 001126 77S: MOV STMP3,$BDDAT CHECK RMDS FOR BIT FAILURES = FROM PORT B. 
052302 013737 001226 001240 MOV PORTB,PTNBR : CHANGE PORT NUMBER 
052310 042737 100100 001126 BIC WATA!VV,SBDDAT DON'T CHECK ATIN BIT OR vv BIT 
052316 023737 001124 001126 CMP $GDDAT,$BDDAT SEE IF READ OK FROM PORT B. 
052324 001401 BEQ 78$ ;BR IF OK 
052326 104007 EMT 7 
052330 000240 78$: NOP 
052332 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
052340 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
052346 005037 001250 CLR CKERR ;CLEAR THE ‘CHECK ERROR" INDICATOR 
052352 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
052360 012737 000012 001122 MOV #RMDS ,SBDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
052366 060037 001122 ADD RO, SBDADR ADD _RH/RM BASE ADDRESS 
052372 012737 100000 001124 MOV HATA, SGDDAT SWHAT REGISTER SHOULD BE 
052400 013737 001126 001164 MOV SBDDAT ,$TMPO ;MOVE REGISTER CONTENTS TO ‘STMPO' 
052406 042737 077777 001164 BIC #*CATA,STMPO ;SAVE SPECIFIED BITS 
052414 023737 001124 001164 CMP SGDDAT,$TMPO :COMPARE THE BITS 
052422 001414 BEQ 79$ :BR IF OK 
052424 013737 001126 001174 MOV SBDDAT,STMP4 ;COPY ‘BAD DATA’ 
052432 042737 100000 001174 BIC MATA, STMPS ;CLEAR THE MASKED BITS 
052440 053737 001174 001124 BIS STMP4 ,SGDDAT :'OR' WITH GOOD DATA FOR TYFFOUT 
052446 104064 EMT 64 
052450 005137 001250 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
052454 000240 79$: NOP 
052456 005037 001250 CLR CKERR ;CLEAR THE ‘CHECK ERROR’ INDICATOR 
052462 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
052470 012737? 000012 001122 MOV #RMDS,S$BOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
052476 060037 001122 ADD RO, SBDADR 2 ADD RH/RM BASE ADDRESS 
052502 005037 001124 CLR $GDDAT WHAT REGISTER SHOULD BE 
052506 013737 001126 001164 MOV SBDDAT,STMPO MOVE REGISTER _— TO *$TMPO' 
052514 042737 177677 001164 BIC #*CVV,STMPO ;SAVE SPECIFIED BIT 
052522 023737 001124 001164 CMP SGDDAT,STMPO COMPARE THE BITS 
052530 001414 BEQ 81$ :BR IF OK 
052532 013737 001126 001174 MOV SBDDAT ,STMP4 ;COPY ‘BAD DATA’ 
052540 042737 000100 001174 BIC AVV,STMP4 ;CLEAR THE MASKED BITS 
052546 053737 001174 001124 BIS STMP4 ,SGDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
052554 104065 EMT 6 
052556 005137 001250 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
052562 000240 81$: NOP 

;1SSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO PORT B, 

THEN RELEASE PORT B 
052564 012760 000011 00L00 MOV #11,RMCS1(RO) ;DRIVE CLEAR 
052572 012760 000021 00000u MOV #21,RMCS1(RO) ;READ IN PRESET 

;RELEASE THE DRIVE FROM PORT B 
052600 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
052606 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUI 
052614 012760 000013 000000 MOV WI3,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT B 

VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
052622 005037 001254 _ CLR RELERR CLEAR THE "RELEASE ERROR * INDICATOR 
052626 012737 000012 001122 MOV #RMDS ,SBDADR :FORM THE ADDRESS OF RMDS FOR TYPEQUT 
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pefefloleleleloeloelolelolo) 
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‘ 


001126 
001240 
000010 


001240 
001126 
000010 


001254 
001126 


001126 


001126 


001126 


ADD RO, SBDA ADD THE 1/0 BASE ADDRESS 
MOV WML 'PGM:DPR'DRY: "SGDDAT Vt eeaetaa CONSTANT 
MOVB PORTA,RMCS2(RO) ;SELECT PORT 


MOV RMDS(RO),$TMP2 GET THE DRIVE “STATUS REGISTER FROM PORT A. 
BIC #PIP'WRL'OM, STMP2 SCLEAR DON NT CARE S 
MOV STMP2,$TMPO :COPY IT INTO ' 
BIC WATA'VV,STMPO CLEAR PORT “DEPENDENT BITS FROM THE COPY 
MOVB PORTE. RACS2 (RO) SSELECT PORT B. 
MOV (RO),$TMP3 :GET THE "Dye STATUS REGISTER FROM PORT B. 
BIC PPIPtURLIOR $TmP3 ;CLEAR DONT CARES 
MOV STMP3,$TMP1 7COPY IT INTO "$TMP1' 
BIC WATA'VV,STMP1 = CLEAR PORT DEPENDENT BITS FROM THE COPY 
CMP $TMPO,$TMP1 71S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
BNE 83$ [BR IF NOT 
TST $TMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BNE 85$ ‘BR IF NOT 
EMT 46 
JMP 87$ ;BYPASS THE REST OF THE CHECKS 
83$: MOV STMP2,$BDDAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
MOV PORTB.PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOVB  PORTB.RMCS2(RO) :SELECT PORT B. 
TST $TMPO :SEE IF STATUS EQ 0 FROM PORT A. 
BEQ B4$ :BR IF ZERO 
MOV PORTA,PTNBR iSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOV $TMP3,$BDDAT —: "BAD DATA’ FOR ERROR TYPE OUT 
MOVB  PORTA,RMCS2(RO) :SELECT PORT A. 
TST $TMP1 :SEE IF STATUS EQ ZERO FROM PORT B. 
BNE 85$ ‘BR IF NOT 
84$: NOV #51 .RELERR :SET "RELEASE ERROR' INDICATOR 
85$: MOV STMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
MOV PORTA, PTNBR CHANGE PORT NUMBER 


BIC MATALVV,SBDDAT ;DON'T CHECK ATIN BIT OR vv BIT 
CMP $GDDAT,$BDDAT ALL BITS OK 
hy gos, :BR IF OK PROM PORT A. 
868: MOV STMP3,S$BDDAT CHECK RMDS FOR BIT FAILURES = FROM PORT B. 
MOV PORTB,PTNBR CHANGE PORT NUMBER 
BIC WATA'VV, SBDDAT :DON'T CHECK ATTN BIT OR VV BIT 
CMP $GDDAT,SBDDAT :SEE IF READ OK FROM PORT B. 


BEQ 87$ ;BR IF OK 
EMT 7 
87$: NOP 
50$: SCOPE 
mt) ~:~ Pest * ant ut eae eee 
s*TEST 41 PORT ‘B® SET VOLUME VALID TES 


EST 
seVERIFY THAT VOLUME VALID CAN BE SET FOR THE PORT UNDER TEST. 


te A. WITH PORT ‘B* SELECTED, RESET AND SET “UNIT READY" 
7? STATUS USING DIAGNOSTIC MODE. VERIFY THAT THE DRivE 
7° 1S SEIZED AND vat “VOLUME VALID'' 1S RESET AND 

2 ATTENTION IS SET 

& 


B. ISSUE A DRIVE CLEAR COMMAND AND A READ IN PRESET 


SEQ 0138 
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COMMAND TO THE DRIVE THAT WAS SEIZED IN STEP A. 
verity THAT ATTENTION IS RESET AND THAT VOLUME VALID 


3° 

te 

*e 

7* C. RELEASE THE DRIVE FROM PORT 'B’ AND SELECT THE DRIVE FOR 
hed PORT ‘A’. VERIFY THAT ATTENTION IS STIL SET AND THAT 

7° VOLUME VALID IS STIL RESET. 
°@ 
® 
'® 
§ 


:* D. ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO 
: PORT 'A' THEN RELEASE PORT 
T 


- PEE eM I ir ase ene Da te OEE Le eT 


053152 141: 
053152 005737 001300 TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
053156 001406 BEQ 2$ :BR IF NOT 
053160 100002 BPL 1$ :BR_IF JUST ENTERED TEST 
053162 000137 003110 JMP EXEC :RETURN & GET NEXT TEST NUMBER 
053166 012737 177777 001300 1$: MOV #-1,KYBCTL sSET SINGLE TEST INDICATOR 
053174 012737 053210 001106 2s: MOV MTESTG1,$LPADR ;SETUP SCOPE LOOP ADDRESS 
Be esee 012737 053210 001110 restat MOV MTESTG1,$LPERR ;SETUP ERROR LOOP ADDRESS 
053210 112737 000041 001102 MOVB #41,$TSTNM sMOVE #41 TO TEST NUMBER 
053216 012706 001100 MOV MSTACK,SP ;LOAD THE STACK POINTER 
1627 053222 012737 000031 001176 MOV #25. ,STIMES 3:00 25. ITERATIONS 
1428 
;SEIZE PORT B BY WRITING THE MAINTENANCE REGISTER,RMMR1. SET 
sAND RESET ‘MAINTENANCE th READY'’ TO CAUSE VOLUME VALID TO 
;RESET AND ATTENTION TO SET 
sSEIZE THE DRIVE THROUGH PORT B 
053230 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
053236 013737 001226 001242 MOV PORTB,SEIZPT ;STORE SEIZING PORT'S ADDRESS 
053244 012760 000001 000024 MOV #DMD,RMMR1(RO) ;WRITE DMD INTO RMMR1 
053252 013737 001224 001244 MOV PORTA,OPPRT ; OPPOSITE’ PORT ADDRESS 
053260 012760 001001 000024 MOV #DMD! MUR, RMMR1 (RO) ;SET_ UNIT READY 
053266 012760 000000 000024 MOV #0,RMMR1(RO) sRESET DIAGNOSTIC MODE 
:VERIFY THAT ATA = 1,VV = 0 FOR PORT : 
053274 005037 001250 CLR CKERR CLEAR THE ‘CHECK on” INDICATOR 
053300 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
053306 012737 000012 001122 MOV #RMDS , SBOADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
053314 060037 001122 ADD RO,$BDADR D RH/RM BASE ADDRESS 
053320 012737 100000 001124 MOV #ATA,SGDDAT SHAT REGISTER SHOULD BE 
053326 013737 001126 001164 MOV $BDDAT,STMPO MOVE REGISTER CONTENTS TO 'S$TMPO' 
053334 042737 077777 001164 BIC #“CATA,STMPO SAVE SPECIFIED BITS 
053342 023737 001124 001164 CMP SGDDAT,STMPO ;COMPARE THE BITS 
053350 001414 BEQ 66 :BR IF OK 
053352 013737 001126 001174 MOV SBDDAT,STMP4 :COPY "BAD DATA’ 
053360 042737 100000 001174 BIC MATA,STMPG ;CLEAR THE MASKED BITS 
053366 0535737 001174 001124 BIS STMP4 ,SGDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
053374 104064 EMT 64 
053376 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
053402 000240 66$: NOP 
053404 005037 001250 CLR CKERR :CLEAR THE “CHECK ERROR® INDICATOR 
053410 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
053416 012737 000012 001122 MOV #RMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 


K 11 
CZRMRAO moat fae DU POR TST 1. MACRO V03.01 11-APR=-80 14:26:10 PAGE 8-103 


141 PORT 'B' SET VOLUME VALID TEST SEQ 0140 
053424 060037 001122 ADD RO. SBDADR : ADD RH/RM BASE ADDRESS 
053430 005037 001124 CLR HAT REGISTER SHOULD BE 
053434 013737 001126 001164 MOV S80DAt STMPO ‘MOVE REGISTER CONTENTS TO 'STMPO' 
053442 042737 177677 001164 BIC Cvv,$TMPO ;SAVE SPECIFIED BITS 
053450 023737 001124 001164 CMP ScoDAt. STMPO ;COMPARE THE BITS 
053456 001414 BEQ 68 ‘BR IF OK 
053460 013737 001126 001174 MOV S$BDDAT ,STMP4 sCOPY ‘BAD DATA 
053466 042737 000100 001174 BIC #VV, STMPG ‘CLEAR THE PASeeD BITS 
053474 053737 001174 001124 BIS STMP4, $SGDDAT ;"OR* WITH GOOD DATA FOR TYPEOUT 
053502 104065 EMT 65 
053504 005137 001250 .. COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
053510 000240 68%: NOP 
s ISSUE A DRIVE a. AND A READ IN PRESET COMMAND TO PORT B 
053512 012760 000011 000000 MOV #11,RMCS1(RO) :DRIVE CLEAR 
053520 012760 000021 000000 MOV #21. RMCS1(RO) [READ IN PRESET 


;VERIFY ATA = 


Oo 


AND VV = 1 FOR PORT 7 
053526 005037 001250 CLR CKERR ;CLEAR THE "CHECK ERROR’ INDICATOR 


053532 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
053540 012737 000012 001122 MOV #RMDS,SBDADR = FORM REGISTER ADDRESS OF ERROR MESSAGE 
053546 060037 001122 ADD RO,$BDADR ;ADD RH/RM BASE A yes 
053552 012737 000100 001124 MOV #VV,$GDDAT ;WHAT REGISTER SHOULD BE 
053560 013737 001126 01164 MOV S$BDDAT,$TMPO. s MOVE REGISTER CONTENTS TO ‘STMPO' 
053566 042737 177677 001164 BIC #*Cvv,STMPO SAVE SPECIFIED BITS 
053574 023737 001124 001164 CMP SGDDAT,$STMPO ;COMPARE THE BITS 
053602 001414 BEQ 70$ ;BR IF OK 
053604 013737 001126 001174 MOV SBDDAT,STMP4 ;COPY "BAD DATA‘ 
053612 042737 000100 001174 BIC avv,$T MP4 ;CLEAR THE MASKED BITS 
053620 053737 001174 001124 BIS SInbs, SEDDAT ;"OR' WITH GOOD DATA FOR TYPEOUT 
053626 104013 EMT 13 
053630 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
053634 000240 70$: NOP 
053636 005037 001250 CLR CKERR CLEAR THE ‘CHECK ERROR’ INDICATOR 
053642 016037 000012 901126 MOV RMDS(RO) SBDDAT ” ;GET CONTENTS OF RMDS 
053650 012737 000012 001122 MOV #RMDS,SBDADR FORM REGISTER ADDRESS OF ERROR MESSAGE 
053656 060037 001122 ADD RO, $BDA DR ;ADD RH/RM BASE ADDRESS 
053662 12737 011700 001124 MOV WHOL | GM: DPR:DRY! VV. S$GDDAT ;WHAT REGISTER SHOULD BE 
053670 013737 001126 001164 MOV SBDDAT,STMPO sMOVE REGISTER CONTENTS TO ‘STMPO' 
053676 042737 024007 001164 BIC pecasshr0. STMPO “:SAVE SPECIFIED BITS 
053704 023737 001124 001164 CMP SGDDAT, $STMPO : COMPARE THE BITS 
053712 001414 BEQ 72% ‘BR F OK 
053714 013737 001126 001174 MOV SBDDAT,$TMP4 §-:COPY "BAD DATA’ 
053722 042737 153770 001174 BIC #153770,$TMP4 :CLEAR THE MASKED BITS 
053730 053737 001174 001124 BIS STMP4, $GDDAT "OR" WITH GOOD DATA FOR TYPEOUT 
053736 104010 EMT 10 
053740 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
053744 000240 72$: NOP 

;RELEASE PORT B AND SELECT PORT 

sVERIFY THAT ATA = 1 AND Vv'= 0 FOR PORT A 

;RELEASE THE DRIVE FROM PORT B 
053746 113760 001226 000010 MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
053754 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
053762 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT B 
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;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


053770 005037 001254 CLR RELERR ;CLEAR THE ‘RELEASE ERROR ' INDICATOR 
053774 012737 000012 001122 MOV #RMDS ,SBDADR ase t THE ADDRESS 4 oneal FOR TYPEOUT 
054002 060037 001122 ADD RO, SBDADR THE 1/0 BASE ADDRESS 
054006 012737 011600 001124 MOV #MOL | PGM*DPRIDRY: SGDDAT ajGOMPARISON CONSTANT 
054014 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT 
054022 016037 000012 001170 MOV RMDS(RO),STMP2 :GET THE “DRIVE “STATUS REGISTER FROM PORT A. 
054030 042737 024001 001170 BIC #PIP!WRL ‘OM, STMP LEAR pall CARES 
054036 013737 001170 001164 MOV STMP2,STMPO ;COPY IT INTO '$TMPO' 
054044 042737 100100 001164 BIC HATA'VV,STMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
054052 113760 001226 000010 MOVB PORTB,RMCS2(RO) :SELECT PORT 
054060 016037 000012 001172 MOV RMDS(RO), big e I got THE DRIVE STATUS REGISTER FROM PORT B. 
054066 042737 024001 001172 BIC #PIP!WRLIOM,STM CLEAR DONT CARES 
054074 013737 001172 001166 MOV STMP3,STMP1 P COPY IT INTO 'STMP1' 
054102 042737 100100 001166 BIC HATA‘VV,STMP1 © :CLEAR PORT DEPENDENT BITS FROM THE COPY 
054110 023737 001164 001166 CMP STMPO,STMP1 +8. THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
054116 001006 BNE 74% ;BR IF NOT 
054120 005737 001164 TST $TMPO : REGISTERS ARE THE SAME: ARE THEY ZERO ? 
054124 001037 BNE 76$ :BR IF 
054126 104046 EMT 46 
054130 000137 054314 JMP 78$ sBYPASS THE REST OF THE CHECKS 
054134 013737 001170 001126 74$: MOV STMP2, $BDDAT ;SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
054142 013737 001226 001240 MOV PORTB,PTNBR ; SEIZING Ant IF TEST SHOWS DRIVE NOT IN NEUTRAL 
054150 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 
054156 005737 001164 TST STMPO ;SEE IF STATUS EQ 0 FROM POP A. 
054162 001414 BEQ 75$ :BR IF ZERO 
054164 013737 001224 001240 MOV PORTA,PTNBR sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
054172 013737 001172 001126 MOV STMP3,$BDDAT :'BAD DATA’ = ERROR TYPE OUT 
054200 113760 001224 000010 MOVB PORTA,RMCS2(RO) :SELECT PORT 
054206 005737 001166 TST STMP1 sSEE IF STATUS "EQ ZERO FROM PORT B. 
054212 001004 BNE 76$ :BR_IF NOT 
054214 012737 177777 001254 75$: MOV #-1,RELERR ;SET "RELEASE ERROR’ INDICATOR 
054222 104022 EMT 22 
054224 013737 001170 001126 /76$: MOV STMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
054232 013737 001224 001240 MOV PORTA,PTNBR or PORT NUMBER 
054240 042737 100100 001126 BIC WATA'VV,SBDDAT DON'T CHECK ATIN BIT OR VV BIT 
0542466 023737 001124 001126 CMP SGDDAT,$BDDAT ;ALL BITS OK 
054254 001401 BEQ 77$ :BR IF OK FROM PORT A. 
054256 104007 EMT 7 
054260 013737 001172 001126 77$: MOV STMP3,S$BDDAT CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
054266 013737 001226 001240 MOV PORTB,PTNBR CHANGE PORT NUMBER 
054274 042737 100100 001126 BIC WATA!'VV,SBDDAT ;DON'T CHECK ATIN BIT OR Vv BIT 
054302 023737 001124 001126 CMP SGDDAT,$BDDAT SEE IF READ OK FROM PORT B. 
054310 001401 BEQ 78$ :BR IF OK 
054312 104007 EMT 7 
054314 000240 78$: NOP 
054316 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
0543246 013737 001224 001240 MOV PORTA,PTNBR ; MOVE + ADDRESS TO LOCATION FOR TYPEOUT 
054332 005037 001250 CLR CKERR CLEAR THE ‘CHECK io il INDICATOR 
054336 016037 000012 001126 MOV RMDS(RO),SBDDAT ;GET CONTENTS OF RMDS 
54344 012737 000012 001122 MOV #RMDS ,SBDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
054352 060037 001122 ADD RO, SBDADR ADD RH/RM BASE ADDRESS 
054356 012737 100000 001124 MOV #WATA,SGDDAT sWHAT REGISTER SHOULD BE 
054364 013737 001126 001164 MOV SBODAT,STMPO sMOVE REGISTER oe TO "$TMPO* 
054372 042737 077777 001164 BIC #*CATA,STMPO SAVE SPECIFIED BIT 
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054400 023737 001124 001164 CMP SGDDAT, $TMPO ; COMPARE THE BITS 
054406 001414 BEQ ‘BR IF OK 
054410 013737 001126 001174 MOV SBDDAT S$TMPG = COPY ‘BAD DATA’ 
054416 042737 100000 001174 BIC A, STMPG [CLEAR THE MASKED BITS 
054424 053737 001174 001124 BIS STMPcS $GDDAT  :'OR' WITH GOOD DATA FOR TYPEOUT 
054432 104064 EMT 64 
054434 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
054440 000240 79$: NOP 
054442 005037 001250 CLR CKERR sCLEAR THE "CHECK ERROR’ INDICATOR 
054446 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMD 
054454 012737 000012 001122 MOV #RMDS,S$BDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
054462 060037 001122 ADD RO, SBDADR ;ADD_RH/RM BASE ADDRESS 
054466 005037 001124 CLR $GDDAT WHAT REGISTER SHOULD BE 
054472 013737 001126 001164 MOV SBDDAT $TMPO MOVE REGISTER CONTENTS TO "$TMPO' 
054500 042737 177677 001164 BIC “CvV,$TMPO ;SAVE SPECIFIED BITS 
054506 023737 001124 001164 CMP ScbDAt. $TMPO ° ;COMPARE THE BITS 
054514 001414 BEQ 81$ :BR IF OK 
054516 013737 001126 001174 MOV SBDDAT,STMP4 | :COPY ‘BAD DATA’ 
054524 042737 000100 001174 BIC #VV, STMPG ‘CLEAR THE MASKED BITS 
054532 053737 001174 001124 BIS STMP4,$GDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
054540 104065 EMT 65 
054542 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
054546 000240 81$: NOP 
sISSUE A DRIVE oGLEAR AND A READ IN PRESET COMMAND TO PORT A, 
[THEN RELEASE PORT A 

054550 012760 000011 000000 MOV te RMCS1(RO) DRIVE CLEAR 
054556 012760 000021 000000 MOV #21,RMCS1(RO) :READ IN PRESET 

;RELEASE THE DRIVE FROM PORT A 
054564 113760 001224 000010 MOVB  PORTA,RMCS2(RO) ;SELECT PORT A 
054572 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
054600 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT A 

ZVERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
054606 005037 001254 CLR RELERR :CLEAR THE ‘RELEASE ERROR * INDICATOR 
054612 012737 000012 001122 MOV #RMDS,SBDADR §:FORM THE ADDRESS OF RMDS FOR TYPEOUT 
054620 060037 001122 ADD RO, $BDADR [ADD THE 1/0 BASE ADDRESS 
054624 012737 011600 001124 MOV #MOL'PGM'DPR!DRY.S$GDDAT { COMPARISON CONSTANT 
054632 113760 001224 000010 MOVB  PORTA,RMCS2(RO) :SELECT PORT A. 
054640 016037 000012 001170 MOV RMDS (RO) ,STMPe “GET THE DRIVE STATUS REGISTER FROM PORT A. 
054646 042737 024001 001170 BIC #PIP!WRL ‘OM, STMP2 ;CLEAR DONT CARES 
054654 013737 001170 001164 MOV STMP2,STMPO sCOPY IT INTO '$TMP 
054662 042737 100100 001164 BIC WATA'VV,STMPO  :CLEAR PORT DEPENDENT BITS FROM THE COPY 
054670 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
054676 016037 000012 001172 MOV RMDS(RO),STMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
054704 042737 024001 001172 BIC #PIP'WRL‘OM,STMP3 ;CLEAR DONT CARES 
054712 013737 001172 001166 MOV STMP3,STMP1 7COPY IT INTO ' 
054720 042737 100100 001166 BIC #ATA'VV,STMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY 
054726 023737 001164 001166 CMP STMPO,STMP1 [IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
054734 001006 BNE 3$ ‘BR IF NOT 
054736 005737 001164 TST $TMPO TREGISTERS ARE THE SAME: ARE THEY ZERO ? 
054742 001037 BNE 85$ :BR IF NOT 
054744 104046 EMT 46 
054746 000137 055132 JMP 87% :BYPASS THE REST OF THE CHECKS 
054752 013737 001170 001126 83%: MOV $IMP2,$BDDAT :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
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141 PORT *B’ SET VOLUME VALID TEST SEQ 0143 
054760 013737 001226 001240 MOV PORTB,PTNBR ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
054766 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT POR 
054774 005737 001164 TST $TMPO :SEE IF STATUS EQ 0 FROM PORT A. 
055000 001414 BEQ 84$ :BR IF ZERO 
055002 013737 001224 001240 MOV PORTA, PTNBR ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
055010 013737 001172 001126 MOV STMP3,SBDDAT "BAD DATA’ FOR ERROR TYPE OUT 
055016 113760 001224 000010 MOVB  PORTA,RMCS2(RO) :SELECT PORT A 
055024 005737 001166 TST STMP1 SEE IF STATUS EQ ZERO FROM PORT B. 
055030 001004 BNE 85$ :BR IF NO 
055032 012737 177777 001254 84%: MoV #=1,RELERR ;SET "RELEASE ERROR' INDICATOR 
055040 104022 EMT 
055042 013737 001170 001126 85$: Mov STMP2,$BDDAT | ;LOOK FOR BIT FAILURES WHEN RMDS READ 
055050 013737 001224 001240 MOV PORTA, PTNBR ;CHANGE PORT NUMBER 
055056 042737 100100 001126 BIC HATA'VV,SBDDAT DON'T CHECK ATTN BIT OR vv BIT 
055064 023737 001124 001126 CMP $GDDAT,$BDDAT ALL BITS 
055072 001401 BEQ 86$ :BR IF OK PROM PORT A. 
055074 104007 EMT 7 
055076 013737 001172 001126 86$: MOV STMP3,SBDDAT CHECK RMDS FOR BIT FAILURES = FROM PORT B. 
055104 013737 001226 001240 MOV PORTB,PTNBR CHANGE PORT NUMBER 
055112 042737 100100 001126 BIC HATA'VV,$BDDAT DON'T CHECK ATIN BIT OR VV BIT 
055120 023737 001124 001126 CMP SGDDAT,$BDDAT ;SEE IF READ OK FROM PORT B. 
055126 001401 BEQ 87$ "SBR IF OK 
055130 104007 EMT 7 
055132 000240 87$: NOP 
055134 000004 50$: SCOP 
1433 
1447 
1448 itt t tee PPP PPR RARER RES OSES ESE SEE ECS CCS SSSESAESE CSS ISS LS. 
TETEST 42 TEST PORT 'A* TIMEOUT DOES NOT RESET DRIVE 
** 
;*VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 
; !® A. SEIZE THE DRIVE THROUGH PORT ‘A* By WRITING O'S INTO RMDS. 
** 
:* B. WRITE 1'°S INTO RMER1 THROUGH PORT 'A' TO FORCE AN ATTENTION, 
** 
:* (C. WAIT FOR THE DRIVE TO TIMEOUT. VERIFY THAT THE DRIVE RETURNED TO 
ie NEUTRAL; THAT ATTENTION IS SET FOR PORT ‘A’ AND NOT SET FOR 
ie PORT 'B'; AND THAT BOTH PORTS SEE 1°S IN THE ERROR REGISTER. 
** 
= (ARR RRSSSSASASASESSSALE SESE SESE CLASSE ESE SSAESESESOCLLOCLLSCLLACLALALLE SY 
055136 $142: 
055136 005737 001300 TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
055142 001406 BEQ 2$ :BR IF NOT 
055144 100002 BPL 1$ :BR_IF JUST ENTERED TEST 
055146 000137 003110 JMP EXEC :RETURN'& GET NEXT TEST NUMBER 
055152 012737 177777 001300 1$: MOV #-1, KYBCTL :SET SINGLE TEST INDICATOR 
055160 012737 055174 001106 2$: MOV #TESTG2,$LPADR SETUP SCOPE LOOP ADDRESS 
055166 012737 055174 001110 aac ae WTESTG2,$LPERR :SETUP ERROR LOOP ADDRESS 
é: 
055174 112737 000042 001102 MOVB #42, S$TSTNM ;MOVE #42 10 TEST NUMBER 
055202 012706 001100 MOV WSTACK,SP [LOAD THE STACK POINTER 
reg 0eee 912757 000002 001176 MOV #2.,STIMES :;D0 2. ITERATIONS 
44 
1500 


CLEAR ATTENTION BITS FOR BOTH PORTS 
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142 TEST PORT ‘A' TIMEOUT DOES NOT RESET DRIVE SEQ 0144 
055214 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT MA 
055222 005060 000012 CLR RMDS (RO) SEIZE THE DRIVE 
055226 012760 000011 000000 MOV #1) pod tbs 4 ISSUE DRIVE CLEAR 
055234 012760 000013 000000 MOV #13,RMCS1(RO) RELEASE bh a 
055242 113760 001226 900010 MOVB PORTB, RCS (RO) 7 SELECT 
055250 005060 000012 CLR RMDS (RO) sSEIZE THE "DRIVE o_o PORT ‘B’ 
055254 012760 000011 000000 MOV M11,RMCSI(RO) [ISSUE DRIVE C 
055262 012760 000013 000000 MOV W13,RMCSI(RO) RELEASE THE DRIVE 
;SEIZE THE DRIVE THROUGH PORT A 
055270 113760 001224 000010 MOVB peata’ RMCS2(RO) ;SELECT PORT A 
055276 013737 001224 001242 MOV PORTA,SEIZPT ;STORE githy PORT’ 5 ADDRESS 
055304 005060 000012 CLR RMDS (RO) sWRITE RMDS 
055310 013737 001226 001244 MOV PORTB,OPPRT ;'OPPOSITE* PORT ADDRESS 
sFORCE AN ATTENTION BY SETTING ERRORS. 
055316 012760 177777 000014 MOV #-1,RMER1(RO) ;SET ERROR BITS 
;START THE TIMER 
055324 005037 001256 CLR TIME ;CLEAR THE ELAPSED TIME COUNTER 
055330 012737 003720 001260 MOV #2000. ,WATCH :SET WATCH TO 2000. MS 
055336 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
055344 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
WAIT FOR DRIVE TO TIMEOUT 
055352 005760 000012 1$: TST RMDS (RO) WAIT FOR THE DRIVE TO BE RELEASED 
055356 001004 BNE 2$ :BR_IF DRIVE se SED 
055360 005737 001260 TST WATCH sWATCH AT ZERO 
055364 001372 BNE 1$ :BR IF NOT 
055366 104036 EMT 36 
055370 2$: 
055370 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
055376 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
THE ERROR BIT ("ERR") IN RMDS SHOULD STILL BE SET 
055404 005037 001250 CLR CKERR CLEAR THE ‘CHECK ERROR’ INDICATOR 
055410 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
055416 012737 000012 001122 - MOV #RMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
055424 060037 001122 ADD RO, $BDADR ;ADD RH/RM BASE ADDRESS 
055430 012737 040000 001124 MOV WERR,SGDDAT ;WHAT REGISTER SHOULD BE 
055436 013737 001126 001164 MOV SBDDAT ,STMPO s;MOVE REGISTER CONTENTS TO *STMPO’ 
055444 042737 137777 001164 BIC #*CERR,STMPO ; SAVE hat eds BITS 
055452 023737 001124 001164 CMP SGDDAT,$TMPO : COMP ARE THE BITS 
055460 001414 BEQ 66$ R_ IF OK 
055462 013737 001126 001174 MOV SBDDAT, STMP4 SCOPY "BAD DATA’ 
055470 042737 040000 001174 BIC WERR,STMPS ;CLEAR THE MASKED BITS 
055476 053737 001174 001124 BIS STMP4 ,SGDDAT :'OR’ WITH GOOD DATA FOR TYPEOUT 
055504 104023 EMT 23 
055506 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
055512 000240 66$: NOP 
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142 T PORT 'A' TIMEOUT DOES NOT RESET DRIVE SEQ 0145 
;THE ERROR REGISTER SHOULD CONTAIN 1°S 
055514 005037 001250 CLR CKERR sCLEAR THE "CHECK ERROR’ INDICATOR 
055520 016037 000014 001126 MOV RMERT (RO) , $BDDAT ;GET CONTENTS OF RMER1 
055526 012737 000014 001122 MOV aRAER 1 SBDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
055534 060037 001122 ADD RO, SBDADR ;ADD RH/RM BASE ADDRESS 
055540 012737 177777 001124 MOV Pitta SGDDAT :WHAT REGISTER SHOULD BE 
055546 023737 001124 001126 CMP SGDDAT,$BDDAT :1S THE REGISTER OK ? 
055554 001403 BEQ 68$ :BR IF OK 
055556 104010 EMT 10 
055560 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
055564 000240 68$: NOP 
;THE ATTENTION BIT FOR PORT A SHOULD STILL BE SET 
055566 005037 001250 CLR CKERR ZCLEAR THE "CHECK ERROR" INDICATOR 
055572 016037 000012 001126 MOV RMDS(RO), SBDDAT GE CONTENTS OF RMDS 
055600 012737 000012 001122 MOV WRMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
055606 060037 001122 ADD RO, SBDADR :ADD RH/RM BASE ADDRESS 
055612 012737 100000 001124 MOV #ATA,S$GODAT WHAT REGISTER SHOULD BE 
055620 013737 001126 001164 MOV SBDDAT,S$TMPO ' ;MOVE REGISTER CONTENTS TO '$TMPO" 
055626 042737 077777 001164 BIC #*CATA,STMPO ;SAVE SPECIFIED BIT 
055634 023737 001124 001164 CMP $GDDAT,$TMPO ° ; COMPARE THE Bits” 
055642 001414 BEQ 70$ ‘BR IF OK 
055644 013737 001126 001174 MOV SBDDAT,STMP4 = :COPY ‘BAD DATA’ 
055652 042737 100000 001174 BIC HATA, STMP4 :CLEAR THE MASKED BITS 
055660 053737 001174 001124 BIS STMP4,$GDDAT :'OR* WITH GOOD DATA FOR TYPEOUT 
055666 104041 EMT 41 
055670 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
055674 000240 70$: NOP 
;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
055676 005037 001254 CLR RELERR ;CLEAR THE "RELEASE ERROR ' INDICATOR 
055702 012737 000012 001122 MOV #RMDS,SBDADR ; FORM THE ADDRESS OF RMDS FOR TYPEOUT 
055710 060037 001122 ADD 0, $BDADR ADD THE 1/0 BASE ADDRESS 
055714 012737 051700 001124 MOV #51700, $GDDAT : COMPARSION CONSTANT 
055722 113760 001224 000010 MOVB  PORTA,RMCS2(RO) ;SELECT PORT A. 
055730 016037 000012 001170 MOV RMDS(RO),STMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
055736 042737 024001 001170 BIC #PIP'WRL'OM, STMP2 AR DONT CARES 
055744 013737 001170 001164 MOV STMP2,$TM sCOPY IT INTO 
055752 042737 100100 001164 BIC WATA'VV,$TMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
055760 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
055766 016037 000012 001172 MOV RMDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
055774 042737 024001 001172 BIC #PIP!'WRL'OM,$TMP :CLEAR DONT CARES 
056002 013737 001172 001166 MOV STMP3,$TMP1 >COPY IT INTO ‘$TMP1° 
056010 042737 100100 001166 BIC #ATA'VV, STMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY 
056016 023737 001164 001166 CMP STMPO,STMP1 :1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
056024 001006 BNE 72$ [BR IF NOT 
056026 005737 001164 TST $TMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
056032 001045 BNE 74$ ‘BR IF NOT 
056034 104046 EMT 46 
056036 000137 056236 JMP 76% ;BYPASS THE REST OF THE CHECKS 
056042 013737 001170 001126 72%: Mov STMP2,SBDDAT §:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
056050 013737 001226 001240 MOV PORTB.PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
056056 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT B. 
056064 005737 001164 TST $TMPO >SEE IF STATUS EQ 0 FROM PORT A. 
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142 TEST PORT 'A* TIMEOUT DOES NOT RESET DRIVE SEQ 0146 
056070 001414 BEQ 73% ;BR IF ZERO 
056072 013737 001224 001240 MOV PORTA, they SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
056100 013737 001172 001126 MOV STMP3,S$BDDA ; "BAD DATA’ ron ERROR TYPE OUT 
056106 113760 001224 000010 MOVB PORTA, RACE CRO) SELECT PORT 
056114 005737 001166 TST STMP1 iSEE IF STATUS. EQ ZERO FROM PORT B. 
056120 001012 BNE 74$ ‘BR IF NOT 
056122 012737 177777 001254 73$: MOV #-1,RELERR 7 SET RELEASE ERROR’ INDICATOR 
056130 012760 000011 000000 MOV #11,RMCS1(RO)  ;CLEAR THE DRIVE 
056136 012760 000013 000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
056144 104026 EMT 26 
056146 013737 001170 001126 74$: MOV $TMP2,SBDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
056154 013737 001224 001240 MOV PORTA.PTNBR ;CHANGE PORT NUMBER 
056162 042737 100000 001126 BIC MATA, SBDDAT ;DON'T CHECK THE ATIN BIT 
056170 023737 001124 001126 CMP S$SGDDAT,SBDDAT <ALL BITS OK ? 
056176 001401 BEQ 75$ :BR IF OK FROM PORT A. 
056200 104007 EMT 7 
056202 013737 001172 001126 75$: MOV STMP3,$BDDAT CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
056210 013737 001226 001240 MOV PORTB.PTNBR :CHANGE PORT NUMBER 
056216 042737 100000 001126 BIC #ATA,SBDDAT DON'T CHECK THE ATTN BIT 
056224 023737 001124 001126 CMP $GDDAT,SBDDAT :SEE IF READ OK FROM PORT B. 
056232 001401 BEQ 76$ ;BR IF OK 
056234 104007 EMT 7 
056236 000240 76$: NOP 
THE ATTENTION BIT FOR PORT B SHOULD NOT BE SET 
056240 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
056246 013737 001226 001240 MOV PORTB, PTNBR ;MOVE pont ADDRESS TO LOCATION FOR TYPEOUT 
056254 005037 001250 CLR CKERR CLEAR THE ‘CHECK ERROR' INDICATOR 
056260 016037 000012 001126 MOV RMDS(RO), — GET CONTENTS OF RMDS 
056266 012737 000012 001122 MOV #RMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
056274 060037 001122 ADD RO, $BDADR ADD RH/RM BASE ADDRESS 
056300 005037 001124 CLR $GDDAT [WHAT REGISTER SHOULD BE 
056304 013737 001126 001164 MOV SBDDAT, $STMPO ;MOVE REGISTER CONTENTS TO '$TMPO" 
056312 042737 077777 001164 BIC W°CATA,STMPO ;SAVE SPECIFIED BITS 
956320 023737 001124 001164 CMP $GDDAT,STMPO ;COMPARE THE BITS 
056326 001414 BEQ 77$ ‘BR IF OK 
056330 013737 001126 001174 MOV SBDDAT,STMP4 ;COPY "BAD DATA’ 
056336 042737 100000 001174 BIC WATA,STMPG ‘CLEAR THE MASKED BITS 
056344 053737 001174 001124 BIS STMP4 ,SGDDAT :"OR' WITH GOOD DATA FOR TYPEOUT 
056352 104052 EMT 52 
056354 005137 001250 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
056360 000240 77$: NOP 
;CLEAR ATTENTION BIT FOR PORT A 

056362 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT #A 
056370 005060 000012 CLR RMDS (RO) SEIZE THE DRIVE 
056374 012760 000011 000000 MOV W11,RMCS1(RO) ISSUE DRIVE CLEAR 
056402 012760 000013 000000 MOV #13,RMCS1(RO)  ;RELEASE THE DRIVE 
056410 000004 38: SCOPE sLOOP ? 

1501 

1515 

1516 Peete ewteeeeeeeeee eee eee eee eRe eee eee eee 

:FTEST 43 TEST PORT 'B’ TIMEOUT DOES NOT RESET DRIVE 


eVERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 
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SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING O'S INTO RMDS. 
WRITE 1°S INTO RMER1 THROUGH PORT 'B'. 
WAIT FOR THE DRIVE TO TIMEOUT. 


VERIFY THAT THE DRIVE "cy ton TO 


THAT ATTENTION IS SET FOR | "B' AND IS NOT SET F 


AND THAT BOT 


KYBCTL 

2$ 

1$ 

EX = 
#-1,KYBCTL 
WTESTAS. $SLPADR 
MTESTG3,$LPERR 


443,S$TSTNM 
MSTACK,SP 
#2. ,STIMES 


H PORTS SEE 1'°S IN THE ERROR REGISTER. 


Shite eee PP PPR PRR R SEER S ESET ESSE SS CSCASAOSLSSCLCLLL AS Se 


eas cae ONLY SINGLE TEST ? 
;BR NOT 


7BR IF JUST ENTERED TEST 
sRETURN & GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
;SETUP ERROR LOOP ADDRESS 


:MOVE #43 TO TEST NUMBER 
;LOAD THE STACK POINTER 
::D0 2. ITERATIONS 


s;CLEAR ATTENTION BITS FOR BOTH PORTS 


#11,RMCS1(RO) 
#13,RMCS1(RO) 


PORTA,RMCS2(RO) ;SELECT PORT #A 

RMDS (RO) ;SEIZE THE DRIVE 

M11,RMCS1(RO) ;ISSUE DRIVE CLEAR 

#13,RMCS1(RO) ;RELEASE THE DRIVE 
PORTB,RMCS2(RO) ;SELECT PORT #B 

RMDS (RO) SEIZE THE DRIVE THROUGH PORT 'B' 


ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 


SEIZE THE DRIVE THROUGH PORT B 


PORTB,RMCS2(RO 
PORTB,SEIZPT 
RMDS (RO) 
PORTA,OPPRT 


) ;SELECT PORT B 
;STORE SEIZING PORT'S ADDRESS 
WRITE RMD DS 
: OPPOSITE’ PORT ADDRESS 


FORCE AN ATTENTION BY SETTING ERRORS. 


*@ 

te A, 

;* 

i+ 8. 

. C. 

if NEUTRAL; 

ie PORT Al: 
056412 1143: 
056412 005737 001300 1ST 
056416 001406 BEQ 
056420 100002 BPL 
056422 000137 003110 MP 
056426 012787 177777 001300 1$: MoV 

56434 012737 056450 001106 28: MOV 
6442 012737 056450 001110 MOV 

056450 ~ TEST43: 
056450 112737 000043 001102 MOVB 
056456 012706 001100 MOV 
056462 012737 000002 001176 MOV 
056470 113760 001224 000010 MOVB 
056476 005060 000012 CLR 
056502 012760 000011 000000 MOV 
056510 012760 000013 000000 MOV 
056516 113760 001226 000010 MOVB 
056524 005060 000012 CLR 
056530 012760 000011 000000 MOV 
056536 012760 000013 000000 MOV 
056544 113760 001226 000010 MOVB 
056552 0137387 001996 001242 MOV 
056560 005060 00001? CLR 
056564 013737 001226 001244 MOV 
056572 012760 177777 000014 Mov 

;START THE TIMER 
056600 005037 001256 CLR 
056604 012787 003720 001260 MOV 
056612 118760 001224 000010 MOVB 
056620 013737 001294 001240 MOV 

:WAIT FOR DRIVE 
056626 005760 000012 1s: OTST 
056632 001004 BNE 


#-1 RMERT(RO) 


TIME 
#2000. ,WATCH 


PORTA, RMCS2(RO) 


PORTA,PTNBR 
TO TIMEOUT 
RMDS(RO) 

2% 


;SET ERROR BITS 


:CLEAR THE ELAPSED — COUNTER 
i SET i at 2000. 

SELECT P 

;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 


:WAIT FOR THE DRIVE TO BE RELEASED 
:BR IF DRIVE RELEASED 


SEQ 0147 
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T PORT ‘B' TIMEOUT DOES NOT R 


056634 


056652 


056660 


056766 


056770 


057040 


057042 


SooCCoCoCooo 
PDP APPA 


005737 
0013 


001260 


001124 
001126 
040000 
001174 


001250 


001250 


001124 


001259 


001250 


001124 
001126 
100000 
001174 


001250 


001126 
001122 


001124 
001126 


001126 
001122 


001124 


001164 


001174 
001174 
001124 


oa 
ESET DRIVE 
TST 
BNE 
EMT 
2$: 
MOVB 
MOV 


CLR 
MOV 
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WATCH ;WATCH AT ZERO ? 

1$ ;BR IF NOT 

36 

PORTB,RMCS2(RO) ;SELECT PORT B 

PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TyYPEOUT 
:THE ERROR BIT ("ERR") IN RMDS SHOULD STILL BE SET 

CKERR ;CLEAR THE ‘CHECK ERROR’ INDICATOR 

RMDS(RO),SBDDAT ;GET CONTENTS OF RMDS 

WRMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 

RO, $BDADR ;ADD _RH/RM BASE ADDRESS 

WERR,SGDDAT ;WHAT REGISTER SHOULD 


66$: NOP 


#*CERR,STMPO 
a ,STMPO 


66 
‘SBDDAT ,STMP4 


MERR,STMPS 
eee 


CKERR 


BE 
;MOVE REGISTER + © mame TO "$STMPO* 
: SAvE whont tak ot 
ae ie THE BITS: 


‘BR IF 

: COPY ‘BAD DATA' 

:CLEAR THE MASKED BITS 

:*OR' WITH GOOD DATA FOR TYPEOUT 


SET THE REGISTER COMPARE ERROR INDICATOR 


; THE ERROR REGISTER SHOULD CONTAIN 1'S 


68$: NOP 


CKERR : 
RMER1(RO) ,$BDDAT 
#RMER1,$BDADR 


$GDDAT, $BDDAT 
68$ 


10 
CKERR 


CLEAR THE ‘CHECK ERROR’ INDICATOR 
:GET CONTENTS OF RMER1 
+ FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RH/RM BASE ADDRESS 
WHAT REGISTER SHOULD BE 
21S THE REGISTER OK ? 
:BR IF OK 


;SET THE REGISTER COMPARE ERROR INDICATOR 


:THE ATTENTION BIT FOR PORT B SHOULD STILL BE SET 


70$: NOP 


CKERR CLEAR THE ‘CHECK ERROR’ INDICATOR 
RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 

WRMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO, $BDADR ;ADD RH/RM BASE ADDRESS 

MATA,SGDDAT ;WHAT REGISTER SHOULD BE 

SBODAT ,STMPO MOVE REGISTER CONTENTS TO ‘$STMPO* 
#*CATA,STMPO ; SAVE AL BITS 

SGDDAT ,STMPO :COMPARE THE BITS 

70% :BR IF OK 

SBDDAT ,STMP4 COPY "BAD DATA’ 

MATA, STMPG :CLEAR THE MASKED BITS 

tal mmaaiat :'OR* WITH GOOD DATA FOR TYPEOUT 

4 

CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 


VERIFY THAT THE DRIVE 1S STILL IN NEUTRAL 


SEQ 0148 
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143 TEST PORT ‘B* TIMEOUT DOES NOT RESET DRIVE SEQ 0149 
057152 005037 001254 CLR RELERR ;CLEAR THE "RELEASE ERROR °* INDICATOR 
057156 012737 000012 001122 MOV #WRMDS , SBDADR :FORM THE ADDRESS OF RMDS FOR TYPEOUT 
057164 060037 001122 ADD RO, $BDADR :ADD THE 1/0 BASE ADDRESS 
057170 012737 051700 001124 MOV #51700,$GDDAT ;COMPARSION CONSTANT 
057176 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
057204 016037 000012 001170 MOV RMDS(RO),STMP2 :GET THE DRIVE "STATUS REGISTER FROM PORT A. 
057212 042737 024001 001170 Ble #PIP'WRL'OM,STMP2 ;CLEAR DONT CARES 
057220 013737 001170 001164 MOV STMP2,STMPO ;COPY IT INTO ‘$TMPO' 

057226 042737 100100 001164 BIC MATA'VV,STMPO ;CLEAR PORT — BITS FROM THE COPY 
057234 113760 001226 000010 MOVB PORTB,RMCS2(RO) :SELECT PORT B. 
057242 016037 000012 001172 MOV RMDS(RO), dyed oct THE DRIVE STATUS REGISTER FROM PORT B. 
057250 042737 024001 001172 BIC #PIP!WRL‘OM,STM :CLEAR DONT CARES 
057256 013737 001172 001166 MOV STMP3,STMP1 P COPY IT INTO ‘STMP1' 
057264 042737 100100 001166 BIC MATA!VV,STMP1 ;CLEAR PORT DEPENDENT BITS FROM THE C 
057272 023737 001164 001166 CMP STMPO,STMP) 1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
057300 001006 BNE 72$ :BR IF NOT 
057302 005737 001164 TST $STMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
057306 001045 BNE 74% ;BR IF NOT 
057310 104046 EMT 46 
057312 000137 057512 JMP 76$ ;BYPASS THE REST OF THE CHECKS 
057316 013737 001170 001126 72$: MOV STMP2, SBODAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
057324 013737 001226 001240 MOV PORTB,PTNBR sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
057332 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 
057340 005737 001164 TST $TMPO ;SEE IF STATUS EQ 0 FROM PORT A, 
057344 001414 BEQ 73$ :BR IF ZERO 
057346 013737 001224 001240 MOV PORTA, thee * SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
057354 013737 001172 001126 MOV STMP3,$ ;'BAD DATA’ i ERROR TYPE OUT 
057362 113760 001224 000010 MOVB PORTA, RCS? (RO) :SELECT PORT 
057370 005737 001166 TST STMP 1 :SEE i STATUS” EQ ZERO FROM PORT B. 
057374 001012 _ BNE 74$ :BR NOT 
057376 012737 177777 001254 738: MOV #-1,RELERR ; SET RELEASE ERROR INDICATOR 
057404 012760 000011 000000 MOV #11,RMCS1(RO) ;CLEAR THE DRIVE 
057412 012760 000013 000000 MOV #13,RMCS1(RO)  ;RELEASE THE DRIVE 
057420 104026 EMT 26 
057422 013737 001170 001126 74$: MOV STMP2,$BODAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
057430 013737 001224 001240 MOV PORTA,PTNBR ;CHANGE PORT NUMBER 
057436 042737 100000 001126 BIC #ATA,$BDDAT ;DON'T CHECK THE ATIN BIT 
057444 023737 001124 001126 | CMP $GDDAT,$BDDAT ALL BITS OK 
057452 001401 BEQ 75% ;BR IF OK PROM PORT A. 
057454 104007 EMT 7 
057456 013737 001172 001126 75$: MOV $STMP3,S$BDDAT CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
057464 013737 001226 001240 MOV PORTB,PTNBR : CHANGE PORT NUMBER 
057472 042737 100000 001126 BIC #ATA,SBDDAT [DON'T CHECK THE ATIN BIT 
057500 023737 001124 001126 CMP $GDDAT,$BDDAT ;SEE IF READ OK FROM PORT B. 
057506 001401 BEQ 76$ :BR IF OK 
057510 104007 EMT 7 
057512 000240 768: NOP 
;THE ATTENTION BIT FOR PORT A SHOULD NOT BE SET 
057514 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
057522 013737 001224 001240 MOV PORTA,PTNBR ;MOVE 4e4y ADDRESS TO LOCATION FOR TYPEOUT 
057530 005037 001250 CLR CKERR ;CLEAR THE "CHECK ERROR" INDICATOR 
057534 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
057542 012737 000012 001122 MOV #RMDS,SBOADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
057550 060037 001122 ADD RO, $BDADR ;ADD RH/RM BASE ADL ?ESS 
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ZR 
43 TEST PORT "B® TIMEOUT DOES NOT RESET DRIVE SEQ 0150 
057554 005037 001124 CLR SGDDAT sWHAT REGISTER SHOULD BE 
057560 013737 001126 001164 MOV SBDDAT,STMPO MOVE REGISTER CONTENTS TO 'STMPO* 
057566 042737 677777 001164 BIC #*CATA,STMPO SAVE SPECIFIED BITS 
057574 023737 001124 0601164 CMP SGDDAT ,STMPO a THE BITS 
057602 001414 BEQ 77$ F OK 
0576046 013737 001126 001174 MOV areal aga ‘COPY "BAD DATA’ 
057612 042737 100000 001174 BIC HATA, STMP :CLEAR THE MASKED BITS 
057620 053737 001174 001124 BIS STMPS, SGDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
057626 104052 EMT 52 
057630 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
057634 000240 77$: NOP 
CLEAR ATTENTION BIT FOR PORT B 
057636 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT #8 
057644 005060 000012 CLR RMDS(RO) SEIZE THE DRIVE 
057650 012760 000011 000000 MOV M11,RMCSI(RO) ISSUE DRIVE CLEAR 
057656 012760 000013 000000 MOV MI3Z,RMCST(RO) ;RELEASE THE DRIVE 
S19 057664 000004 3$: SCOPE sL00P ? 
1535 
1536 SCRA eee eee eee eeneeeneeee 
s*TEST 44 PORT ‘A’ RETRIGGER BY DEMAND TEST 
‘ #VERIFY THAT THE PORT TIMEOUT ONE=SHOT CAN BE RETRIGGERED BY MASSBUS DEMAND. 
fe A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING O'S INTO RMDS. 
:* B. WAIT 500 MS AND READ RMDS THROUGH PORT "A", 
:* C. VERIFY THAT THE TIMEOUT OCCURS WITHIN + OR - ie OF THE SPECIFIED 
3 TIME. (THE MEASUREMENT 1S MADE FROM STEP '‘B'. 
i* OD. pia rt THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
7 salle tase inl he 
057666 TS144: 
057666 005737 001300 TST KYBCTL : PERFORMING ONLY SINGLE TEST ? 
057672 001406 BEQ 2s IF NOT 
057674 100002 BPL 1$ BR IF JUST ENTERED TEST 
057676 000137 003110 JMP EXEC :RETURN & GET NEXT TEST NUMBER 
057702 012737 177777 001300 1$: MOV #-1 ,KYBCTL :SET SINGLE TEST INDICATOR 
057710 012737 057724 001106 2s: MOV MTESTSG4,$LPADR ;SETUP SCOPE LOOP ADDRESS 
Berple 012737 057724 001110 or MOV MTESTG4,$LPERR ;SETUP ERROR LOOP ADDRESS 
057724 112737 000044 001102 * MOVB #44 ,$1S7NM :MOVE #44 TO TEST NUMBER 
057732 012706 001100 MOV STACK ,SP ;LOAD THE STACK POINTER 
1537 057736 012737 000002 001176 MOV #2. ,STIMES 3:D0 2. LTERATIONS 
1572 
;CLEAR ATTENTION BITS FOR BOTH PORTS 
057744 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT #A 
057752 005060 000012 CLR RMDS (RO) SEIZE THE DRIVE 
057756 012760 000011 000000 MOV W11,RMCSI(RO) [ISSUE DRIVE CLEAR 
057764 012760 000013 000000 MOV #13,RMCST(RO) RELEASE THE DRIVE 
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PORT "A’ RETRIGGER BY DEMAND TEST SEQ 0151 
057772 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT #8 
060000 005060 000012 CLR RMDS(RO) SEIZE THE DRIVE _—— PORT ‘'B' 
060004 012760 000011 000000 MOV M11,RMCSI(RO) ISSUE DRIVE CLEAR 
060012 012760 000013 600000 MOV MI3,RMCS1(RO) ;RELEASE THE DRIVE 
sSEIZE THE DRIVE THROUGH PORT A 
060020 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
060026 013737 001224 001242 MOV PORTA,SEIZPT ;STORE SEIZING PORT’S ADDRESS 
060034 005060 000012 CLR RMDS (RO) WRITE RMDS 
060040 013737 001226 001244 MOV PORTB,CPPRT ; OPPOSITE’ PORT ADDRESS 
:START THE TIMER 
060046 005037 001256 CLR TIME CLEAR THE ety _ COUNTER 
060052 012737 000764 001260 MOV #500. ,WATCH ;SET WATCH TO TIM 
060060 005737 001260 1$: TST WATCH :WATCH EQUAL TO 7ERO 
060064 001375 BNE 1$ ;BR IF NOT 
START THE TIMER 
060066 005037 001256 CLR TIME :CLEAR THE ELAPSED _ COUNTER 
060072 012737 003720 001260 MOV #2000. ,WATCH SET WATCH TO 2000. 
sRETRIGGER THE TIMEOUT ONE-SHOT 
060100 005760 000012 TST RMDS (RO) east itt pe hi ONE =SHOT 
060104 113760 001226 000010 MOVB PORTB,RMCS2(R0) ;SELECT PORT B 
060112 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQOUT 
060120 005760 000012 23: TST RMDS (RO) WAIT FOR TIMEOUT 
060124 001004 BNE 3$ :BR_IF TIMEOUT OCCURRED 
060126 005737 001260 TST WATCH WATCH EQUAL TO ZERO ? 
060132 001372 BNE 2$ 7BR IF NOT 
060134 104036 EMT 36 
060136 013737 001256 001276 3$: MOV TIME, TIMES :SAVE THE ELAPSED TIME VALUE 
sVERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
060144 005037 001254 CLR RELERR :CLEAR THE ‘RELEASE ERROR * INDICATOR 
060150 012737 000012 001122 MOV #RMDS ,SBDADR ;FORM THE ADDRESS OF RMDS FOR TYPEOUT 
060156 060037 001122 ADD RO, $BDADR :ADD THE 1/0 BASE ADDRESS 
060162 012737 011700 001124 MOV #MOL!PGM'DPR!DRY VV, ag alae CONSTANT 
060170 113760 001224 000010 MOVB PORTA, op hey SELECT P 
060176 016037 000012 001170 MOV RMDS(RO),S$TMP2 :GET THE ORI VE “STATUS ee FROM PORT A, 
060204 042737 024001 001170 BIC #PIP!WRL ‘OM, STMP2 CLEAR DONT CARE 
060212 013737 001170 001164 MOV STMP2,STMPO :COPY IT INTO '$TMPO' 
060220 042737 100100 001164 BIC WATA'VV,STMPO CLEAR PORT A emi BITS FROM THE COPY 
060226 113760 00:1226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT 
0602354 016037 000012 001172 MOV RMDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
060242 042737 024001 001172 BIC #PIP!WRL!OM,STMP :CLEAR DONT CARES 
060250 0135737 001172 001166 MOV STMP3,STMP1 :COPY IT INTO ‘STMP1' 
060256 042737 100100 001166 BIC WATA'VV,STMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
060264 025737 001164 001166 CMP STMPO,STMPI ils - STATUS REGISTER THE SAME FROM BOTH PORTS ? 
060272 001006 BNE 06% NOT 
060274 005737 001164 TST $TMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
060300 001045 BNE 68% :BR IF 


060302 104046 EMT 46 
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PORT ‘A’ RETRIGGER BY DEMAND TEST SEQ 0152 
060304 000137 060470 JMP 70$ ;BYPASS THE REST OF THE CHECKS 
060310 013737 001170 001126 66$: MOV STMP2,$BDDAT ;SET_UP gta BAD DATA FOR ERROR MESSAGE 
060316 013737 001226 001240 MOV PORTB,PTNBR SEIZING PORT JF TEST SHOWS DRIVE NOT IN NEUTRAL 
060324 113760 001226 600010 MOVB PORTB,RMCS2(RO) ;SELECT PORT 6. 
060332 005737 001164 TST STMPO ;SEE IF STATUS EQ 0 FROM PORT A. 
060336 001414 BEQ 67$ ;BR IF ZERO 
060340 013737 001224 001240 MOV PORTA,PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
060346 013737 001172 001126 MOV STMP3,$BDDAT ;'BAD DATA’ +e ERROR TYPE OUT 
060354 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT 
060362 005737 001166 TST STMP1 sSEE IF STATUS. EQ ZERO FROM PORT B. 
060366 001012 BNE 68$ ;BR_IF NOT 
060370 012737 177777 001254 678: MOV #-1,RELERR SET "RELEASE ERROR’ INDICATOR 
060376 012760 000011 000000 MOV W11,RMCS1(RO) ;CLEAR THE DRIVE 
060404 012760 000013 000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
060412 104022 EMT 22 
060414 013737 001170 001126 68$: MOV STMP2, SBDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
060422 013737 001224 001240 MOV PORTA,PTNBR ; CHANGE PORT NUMBER 
060430 023737 001124 001126 CMP $GDDAT,$BDDAT ALL BITS OK ? 
060436 001401 BEQ 69$ :BR IF OK FROM PORT A. 
060440 104007 EMT 7 
060442 013737 001172 001126 698: MOV STMP3,S$BDDAT ;CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
060450 013737 001226 001240 MOV PORTB,PITNBR ; CHANGE PORT NUMBER 
060456 023737 001124 001126 CMP $GDDAT,S$BDDAT ;SEE IF READ Ok FROM PORT B. 
060464 001401 BEQ 70$ BR IF OK 
060466 104007 EMT 7 
060470 000240 70$: NOP 
;CHECK THE TIME FROM RETRIGGER TO TIMEOUT 
060472 023737 001276 001264 CMP TIMES, TIMEAP s;MEASURED TIME GREATER THAN +25% TOLERANCE ? 
060500 003004 BGT 4% ;BR IF GREATER 
060502 023737 001276 001266 CMP TIMES, TIMEAM ;MEASURED TIME LESS THAN -25% TOLERANCE 
060510 002001 BGE +4 ;BR IF NOT 
060512 4$: 
060512 104025 EMT 25 
060514 000004 SCOPE ;LOOP ? 
1573 
1589 
1590 'WERRABSARSAABRSBSASAARAARRRRRASRASRRERRSRRRARRRRRRRRSRRRRR RRR RRR RR SS SS 
#TEST 45 PORT 'B' RETRIGGER BY DEMAND TEST 
:eVERIFY THAT THE PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED BY MASSBUS DEMAND. 
;* A. SEIZE THE DRIVE THROUGH PORT ‘B' BY WRITING 0°S INTO RMDS. 
;* B&B. WAIT 500 MS AND WRITE 0°B INTO RMDS THROUGH PORT ‘A’. 
;* (C. VERIFY THAT THE TIMEOUT OCCURS WITHIN + OR - it OF THE SPECIFIED 
;e TIME. (THE MEASUREMENT 1S MADE FROM STEP '‘B' 
;* D. VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
3° BIT IS SET. 
‘  eeeeeeeeneeneneeeeeeeeeeeeereeeeeeeeeeeeeeeeeeeeeeeeeeeneeeeee 
060516 TS145: 
060516 005737 001300 TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
060522 001406 BEQ 2% :BR IF NOT 
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145 PORT "B* RETRIGGER BY DEMAND TEST SEQ 0153 
060524 100002 BPL 1$ sBR_IF JUST ENTERED TEST 
060526 000137 003110 JMP EXEC RETURN & GET NEXT TEST NUMBER 
060532 012737 177777 001300 1$: MOV #=1 ,KYBCTL :SET SINGLE TEST INDICATOR 
060540 012737 060554 001106 2$: MOV Altes SLPADR SETUP SCOPE LOOP ADDRESS 
eet tay 012737 060554 001110 1eST65 MOV MTESTG5,« PERR ;SETUP ERROR LOOP ADDRESS 
060554 112737 000045 001102 * MOVB #45,$TSTNM sMOVE #45 TO TEST NUMBER 
060562 012706 001100 MOV MSTACK,SP ;LOAD THE STACK POINTER 
1591 060566 012737 000002 001176 MOV #2.,STIMES 3:00 2. ITERATIONS 
1592 
sCLEAR ATTENTION BiTS FOR BOTH PORTS 
060574 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT #A 
060602 005060 000012 CLR RMDS (RO) SEIZE THE DRIVE 
060606 012760 000011 000000 MOV W11,RMCS1(RO) [ISSUE DRIVE CLEAR 
060614 012760 000013 000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
060622 113760 001226 000010 MOVB PORTB,RMCS2(RO) :SELECT PORT #B 
060630 005060 000012 CLR RMDS (RO) :SEIZE THE DRIVE ae PORT ‘B' 
060634 012760 000011 000000 MOV W11,RMCSI1(RO) [ISSUE DRIVE CILEAR 
060642 012760 000013 000000 MOV W13,RMCS1(RO)  ;RELEASE THE DRIVE 
sSEIZE THE DRIVE THROUGH PORT B 
060650 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
060656 013737 001226 001242 MOV PORTB,SEIZPT ;STORE SEIZING PORT'S ADDRESS 
060664 005060 000012 CLR RMDS (RO) WRITE RMDS 
060670 013737 001224 001244 MOV PORTA,OPPRT ; OPPOSITE’ PORT ADDRESS 
;START THE TIMER 
060676 005037 001256 CLR TIME CLEAR THE ete TIME COUNTER 
060702 012737 000764 001260 MOV #500. ,WATCH :SET WATCH TO TIM. MS 
060710 005737 001260 1$: TST WATCH :WATCH EQUAL TO ZERO 
060714 001375 BNE 1$ :BR IF NOT 
START THE TIMER 
060716 005037 001256 CLR TIME ;CLEAR THE ELAPSED TIME COUNTER 
060722 012737 003720 001260 MOV #2000. ,WATCH :SET WATCH TO 2000. MS 
sRETRIGGER THE TIMEOUT ONE-SHOT 
060730 005760 000012 TST RMDS (RO) sRETRIGGER ae — SHOT 
060734 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT 
060742 013737 001224 001240 MOV PORTA,PTNBR : MOVE PORT ADDRESS re LOCATION FOR TYPEOUT 
060750 005760 000012 2$: TST RMDS (RO) WAIT FOR TIMEOUT 
060754 001004 BNE 3$ :BR IF TIMEOUT OCCURRED 
060756 005737 001260 TST WATCH WATCH EQUAL TO ZERO ? 
060762 001372 BNE 2s :BR IF NOT 
060764 104036 EMT 36 
060766 013737 001256 001276 3$: MOV TIME, TIMES :SAVE THE ELAPSED TIME VALUE 
VERIFY THAT THE DRIVE 1S STILL IN NEUTRAL 
060774 005037 001254 CLR RELERR sCLEAR THE "RELEASE ERROR * INDICATOR 
061000 012737 000012 001122 MOV #RMDS ,SBDADR :FORM THE ADDRESS OF RMDS FOR TYPEOUT 
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145 B' RETRIGGER BY DEMAND SEQ 0154 
061006 060037 001122 ADD RO, SBDADR ;ADD THE 1/0 BASE ADDRESS 
061012 012737 011700 001124 MOV TROL TPCHTDPRIDRYIay SGDDAT ;COMPARISON CONSTANT 
061020 113760 001224 000010 MOVB  PORTA,RMCS2(RO) :SELECT PORT A. 
061026 016037 000012 001170 MOV RMDS(RO),$STMP2 GET THE DRIVE STATUS REGISTER FROM PORT A. 
061034 042737 024001 001170 BIC #PIP'WRL'OM,STMP2 sCLEAR DONT CARES 
061042 013737 001170 001164 MOV STMP2,$TMPO :COPY IT INTO '$TMPO' 
061050 042737 100100 001164 BIC #ATA'VV,STMPO =: CLEAR PORT DEPENDENT BITS FROM THE COPY 
061056 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT P 
061064 016037 000012 001172 MOV RMDS(RO),$TMP3 :GET THE ORIVE “STATUS REGISTER FROM PORT B. 
061072 042737 024001 001172 BIC #PIP'WRL'OM,STMPS :CLEAR DONT CARES 
061100 013737 001172 001166 MOV STMP3,STMP1 ; COPY It INTO ‘STMP1' 
061106 042737 100100 001166 BIC HATA'VV,STMP1 ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
061114 023737 001164 001166 CMP STMPO,STMP1 31S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
061122 001006 BNE 66$ :BR IF NOT 
061124 005737 001164 TST STMPO sREGISTERS ARE THE SAME: ARE THEY ZERO ? 
061130 001045 BNE 68$ [BR IF NOT 
061132 104046 EMT 46 
061134 000137 061320 JMP 70$ :BYPASS THE REST OF THE CHECKS 
061140 013737 001170 001126 66$: MOV STMP2,S$BDDAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
061146 013737 001226 001240 MOV PORTB,PTNBR sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
061154 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT B. 
061162 005737 001164 TST STMPO ;SEE IF STATUS EQ 0 FROM PORT A. 
061166 001414 BEQ 67$ [BR IF ZERO 
061170 013737 001224 001240 MOV PORTA,PTNBR sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
061176 013737 001172 001126 MOV $STMP3,$BDDAT ; "BAD DATA’ 4. ERROR TYPE OUT 
0612046 113760 001224 000010 MOVB  PORTA,RMCS2(RO) :SELECT PORT A 
061212 005737 001166 TST STMP1 ;SEE IF STATUS "EQ ZERO FROM PORT B. 
061216 001012 BNE 68$ [BR IF NOT 
061220 012737 177777 001254 67$: MOV #-1,RELERR SET "RELEASE ERROR' INDICATOR 
061226 012760 000011 000000 MOV #11,RMCS1(RO)  :CLEAR THE DRIVE 
061234 012760 000013 000000 MOV #13,RMCS1(RO)  :RELEASE THE DRIVE 
061242 104022 EMT 22 
061244 013737 001170 001126 68$: MOV STMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
061252 013737 001224 001240 MOV PORTA,PTNBR ; CHANGE PORT NUMBER 
061260 023737 001124 001126 CMP $GDDAT,$BDDAT ALL BITS OK ? 
061266 001401 BEQ 69$ ;BR IF OK FROM PORT A, 
061270 104007 EMT ? 
061272 013737 001172 001126 69$: MOV STMP3,$BDDAT ;CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
061300 013737 001226 001240 MOV PORTB,PTNBR :CHANGE PORT NUMBER 
061306 023737 001124 001126 CMP $GDDAT,$BDDAT ;SEE IF READ OK FROM PORT 8. 
061314 001401 BEQ 70$ “BR IF OK 
061316 104007 EMT ? 
061320 000240 70$: NOP 
; CHECK THE TIME FROM RETRIGGER TO TIMEOUT 

061322 023737 001276 001272 CMP TIMES, TIMEBP ; MEASURED Hy: GREATER THAN #25% TOLERANCE ? 
061330 003004 BGT 4$ :BR IF GREATER 
061332 023737 001276 001274 CMP TIMES, TIMEBM gee TIME LESS THAN -25% TOLERANCE 
061340 002001 BGE +4 BR IF 
061342 4$: 
061342 104025 EMT 25 
061344 000004 SCOPE ;LOOP ? 

1593 

1614 

1615 Peete ereeearee eee eee eee eee eee eee eee eee 


SeTEST 46 PORT *A' TIMEOUT/RELEASE TEST 


a 2 RMO5/3/2 DU POR TST 1 


PORT ‘A‘ 


061346 


061416 


061424 


061534 


061542 
061546 


005060 
113760 


001300 


003110 


061404 


000046 
001100 
000002 


000012 
001226 
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001300 
001106 
001110 
001102 


001176 


000010 
000000 
000000 
000010 


000000 
000000 


000010 
001242 


001244 


000010 


001240 


000010 


:*VERIFY THAT THE TIMEOUT ONE=SHOT IS TRIGGERED WHEN THE DRIV 


A. 
B. 
Cc. 


2%. 
me. eeeeeneeeneeen een e 2: 


mde Be Be Be Be Be Be Be Be Be Be Oe Be Se Se Se Bs 


146: 


1$: 
2$: 


TEST46: 


E 
SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 


SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING O'S INTO RMDS. 
SET PORT REQUEST BY WRITING 0'S INTO RMDS FROM PORT ‘A’. 


ISSUE A RELEASE COMMAND FROM PORT 'B'. VERIFY THAT THE DRIVE 
HAS SWITCHED TO THE OTHER PORT AND THAT THE ‘ATA’ BIT DID NOT 


SET FOR PORT ‘B’. 


REGISTERS WILL NOT BE CHECKED THROUGH PORT ‘A’. 


WAIT THE TIMEOUT INTERVAL + 25%. VERIFY THAT THE DRIVE HAS 
BEEN RELEASED. 


RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE wt 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 


KYBCTL 
2$ 


1$ 

EXEC 
#-1,KYBCTL 
MTEST46,$LPADR 
MTEST46,$LPERR 


#46,$TSTNM 
A#STACK,SP 
#2.,$TIMES 


‘Shhh dee POP RRR REESE ESAS SSAC E SASS SC SESE SESILLSLLL.. 


PERFORMING ONLY SINGLE TEST ? 
:BR IF NOT 


;BR_IF JUST ENTERED TEST 
sRETURN & GET NEXT TEST NUMBER 


SET SINGLE TEST INDICATOR 
sSETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 


;MOVE #46 TO TEST NUMBER 
;LOAD THE STACK POINTER 


;;D0 2. ITERATIONS 


sCLEAR ATTENTION BITS FOR BOTH PORTS 


sSELECT PORT #A 
sSEIZE THE DRIVE 
ISSUE DRIVE CLEAR 
sRELEASE THE DRIVE 


MOVB PORTA,RMCS2(RO) 
CLR RMDS (RO) 
MOV #11,RMCS1(RO) 
MOV #13, RMCS1(RO) 
MOVB PORTB,RMCS2(RO) 
CLR RMDS (RO) 
MOV #11,RMCS1(RO) 
MOV #13,RMCS1(RO) 
SEIZE THE DRIVE THROUGH PORT B 
MOVB PORTB,RMCS2(RO) 
MOV PORTB,SEIZPT 
CLR RMDS (RO) 
MOV PORTA,OPPRT 
MOVB PORTA,RMCS2(RO) 
MOV 
SET REQUEST THROUGH PORT A 
CLR RMDS (RO) 
MOVB PORTB,RMCS2(RO) 


POR 
PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


sSELECT PORT #B 

SEIZE THE DRIVE aa PORT ‘B’ 
ISSUE DRIVE CLEAR 

RELEASE THE DRIVE 


sSELECT PORT B 


; STORE ie PORT'S ADDRESS 
ITE RMDS 


: OPPOSITE’ PORT ADDRESS 
; SELECT TA 


SET REQUEST ‘= PORT A 


SELECT PORT 


SEQ 0155 
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TIMEQUT/RELEASE TEST SEQ 0156 
061554 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
sRELEASE THE DRIVE THROUGH PORT B 
061562 012760 000013 000000 MOV W13,RMCS1(RO)  ;RELEASE DRIVE THROUGH PORT B 
sWAIT THE MEASURED TIMEOUT FOR THE PORT (+ 25%) 
061570 013737 001264 001260 MOV TIMEAP ,WATCH SET WATCH TO MEASURED TIMEOUT VALUE + 25% 
sVERIFY THAT THE DRIVE 1S SEIZED BY PORT A 
061576 005037 001250 CLR CKERR CLEAR THE "CHECK ERROR’ INDICATOR 
061602 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
061610 012737 000012 001122 MOV WRMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
061616 060037 001122 ADD RO,$BDADR ;ADD_RH/RM BASE ADDRESS 
061622 005037 001124 CLR $GDDAT ;WHAT REGISTER SHOULD BE 
061626 023737 001124 001126 CMP SGDDAT, $BDDAT +h THE REGISTER OK ? 
061634 001403 BEQ 66$ ;BR IF OK 
061636 104031 EMT 31 
061640 005137 001250 COM CKERR : :SET THE REGISTER COMPARE ERROR INDICATOR 
061644 000240 66$: NOP 
061646 005737 001250 TST CKERR sREGISTER OK ? 
061652 001402 BEQ +6 :Bh. IF OK 
061654 000137 062230 JMP i$ ;BYPASS REST OF TEST IF NOT 
WAIT FOR THE —_— TO RELEASE THE DRIVE 
061660 005737 001260 7ST ATCH WATCH EQUAL ZERO ? 
061664 001375 BNE — BR IF NOT 
CONFIRM THAT THE DRIVE HAS TIMED OUT 
VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
061666 005037 001254 CLR RELERR CLEAR THE ‘RELEASE ERROR ° INDICATOR 
061672 012737 000012 001122 MOV #RMDS ,SBDADR + FORM THE ADDRESS OF RMDS FOR TYPEOUT 
061700 060037 001122 ADD RO, $BDADR ADD THE 1/0 BASE ADDRESS 
061704 012737 011700 001124 MOV #MOL!PGM' DPR! DRY‘ VV, $GDDAT + aan CONSTANT 
061712 113769 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT 
061720 016037 000012 001170 MOV! RMDS(RO),$TMP2 :GET THE DRIVE “STATUS oe FROM PORT A. 
061726 042737 024001 001170 BIC #PIP!WRL'OM,STMP2 7CLEAR DONT 
061734 013737 001170 001164 MOV STMP2, 0 :COPY IT INTO ‘STM A 
061742 042737 100100 001164 BIC WATA‘VV,STMPO ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
061750 113760 001226 000010 MOVB aby? RACS2(RO) :SELECT PORT B. 
061756 016037 000012 001172 MOV RMDS(RO),$TMP3 GET THE DRIVE STATUS REGISTER FROM PORT B. 
061764 042737 024001. 001172 BIC #PIP!WRL'OM,STMPS :CLEAR DONT CARES 
061772 013737 001172 001166 MOV STMPS,STMP1 COPY IT INTO ‘STMP1' 
062000 042737 100100 001166 BIC PATAT UV STMPI :CLEAR PORT DEPENDENT BITS FROM THE COPY 
062006 023737 001164 001166 CMP STMPO,STMP1 31S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
062014 001006 BNE 68% :BR IF NOT 
062016 005737 001164 TST $TMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
062022 001045 BNE 70$ ;BR 1F NOT 
062024 104046 FMT " 46 
062026 000137 062226 JMP 72% : :BYPASS THE REST OF THE CHECKS 
062032 013737 001170 001126 68$: MOV STMP2,SBDDAT SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
062040 013737 001226 001240 es MOV PORTB,PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 


-— eee ee aoe — nn - 
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TIMEOUT/RELEASE TEST SEQ 0157 
062046 113760 001226 000010 MOVB  PORTB,RMCS2(RO) ;SELECT PORT B. 
062054 005737 001164 1ST $TMPO :SEE IF STATUS EQ 0 FROM PORT A. 
062060 001414 BEQ 69$ :BR IF ZERO 
062062 013737 001224 001240 MOV PORTA, PTNBR {SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
062070 013737 001172 001126 MOV STMP3,$BDDAT ; BAD DATA’ FOR ERROR TYPE OUT 
062076 113760 001224 000010 MOVB  PORTA,RMCS2(RO) :SELECT PORT A. 
062104 005737 001166 TST $TMP1 SEE IF ySiATUS EQ ZERO FROM PORT B. 
062110 001012 BNE 70$ :BR IF 
062112 012737 177777 001254 69$: MoV #-1 ,RELERR ;SET RELEASE ERROR’ INDICATOR 
062120 012760 000011 000000 MOV W11LRMCS1(RO) CLEAR THE DRIVE 
062126 012760 000013 000000 MOV W13,RMCS1(RO) RELEASE THE PORIVE 
| 062134 104035 EMT 35 
062136 013737 001170 001126 70$: Mov $TMP2,$BDDAT :LOOK FOR BIT FAILURES WHEN RMDS READ 
062144 013737 001224 001240 MOV PORTA, PTNBR CHANGE PORT NUMBER 
062152 042737 100000 001126 BIC HATA, SBDDAT :DON'T CHECK THE ATTN BIT 
062160 023737 001124 001126 CMP $GDDAT,SBDDAT ALL BITS OK 
062166 001401 BEQ 71$ :BR IF OK PROM PORT A. 
062170 104007 EMT ? 
062172 013737 001172 001126 71$: Mov $TMP3,$BDDAT | ;CHECK RMDS FOR BIT FAILURES - FROM PORT 8. 
062200 013737 001226 001240 MOV PORTB,PTNBR :CHANGE PORT NUMBER 
062206 042737 100000 001126 BIC HATA, SBDDAT [DON'T CHECK THE ATTN BIT 
062214 023737 001124 001126 CMP $GDDAT,$BDDAT SEE IF READ OK FROM PORT B. 
062222 001401 BEQ 72$ :BR IF OK 
| 062224 104007 EMT 7 
062226 000240 72$: NOP 
062230 000004 1$: SCOPE ;LOOP ? 
1661 
1679 
H 1680 FERRER EEE EEE TETRA eee 
| : TEST 47 PORT 'B' TIMEOUT/RELEASE TEST 
| :*VERIFY THAT THE TIMEOUT ONE-SHOT IS TRIGGERED WHEN THE DRIVE 
| ; SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 
**® 
:* A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING O'S INTO RMDS. 
** 
:* B. SET PORT REQUEST BY WRITING 0°S INTO RMDS FROM PORT ‘B’. 
** 
:* (C. ISSUE A RELEASE COMMAND FROM PORT 'A*. VERIFY THAT THE DRIVE 
ie HAS SWITCHED TO THE OTHER PORT AND THAT THE ‘ATA’ BIT DID NOT 
ie SET FOR PORT 'A'. REGISTERS WILL NOT BE CHECKED THROUGH PORT 'B'. 
**® 
:* D. WAIT THE TIMEOUT INTERVAL + 25%. VERIFY THAT THE DRIVE HAS 
ie BEEN RELEASED. 
** 
*; (ARS SSSSSSASASASESASERRASARSASESSERESESSLESESESES ES RRS EERE SESE SES 
062232 3 S147: 
062232 005737 001300 TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
062236 001406 BEQ 2$ BR IF NOT 
062240 100002 BPL 1$ :BR IF JUST ENTERED TEST 
062242 000137 003110 JMP EXEC :RETURN & GET NEXT TEST NUMBER 
062246 012737 177777 001300 1S: MOV #-1,KYB SET SINGLE TEST INDICATOR 
062254 012737 062270 001106 2s: MOV HTES TAT. SLPADR “SETUP SCOPE LOOP ADDRESS 
062262 012737 062270 001110 AS #TESTG7,$LPERR :SETUP ERROR LOOP ADDRESS 
062270 112737 000047 001102 MOVB #47, $TSTNM ;MOVE #47 TO TEST NUMBER 
062276 012706 001100 MOV WSTACK,SP [LOAD THE STACK POINTER 


062302 


062356 


062364 


062420 


062426 
062432 
062440 


062446 


062454 


062462 


062540 


062544 
062550 


012737 


(ololomelololor 
OS st tO 
MNRMUWNNNRUW 

N 

oa 

oO 


013737 


012760 


013737 


005037 


peed sont tas DU POR TST 1 


000002 


001226 


000012 
001224 
001224 


000013 


001272 


001250 


001124 


001250 
001250 
063114 


001260 
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001176 


000010 
000000 
000000 
000010 


000000 
000000 


000010 
001242 


001244 


001126 


MOV #2.,STIMES ::D0 2. ITERATIONS 


;CLEAR ATTENTION BITS FOR BOTH PORTS 


MOVB PORTA,RMCS2(RO) ;SELECT PORT #A 

CLR RMDS (RO) SEIZE THE DRIVE 

MOV M11,RMCS1(RO) ;ISSUE DRIVE CLEAR 

MOV #13,RMCS1(RO) RELEASE THE DRIVE 

MOVB PORTB,RMCS2(RO) SELECT PORT #B 

CLR RMDS (RO) ;SEIZE THE ah P  etntas PORT 'B' 
MOV W11,RMCSI(RO) ISSUE DRIVE C 

MOV W13,RMCS1(RO) RELEASE THE DRIVE 


:SEIZE THE DRIVE THROUGH PORT A 

MOVB PORTA,RMCS2(RO) ;SELECT PORT A 

MOV PORTA,SEIZPT ;STORE SEIZING PORT'S ADDRESS 

CLR RMDS (RO) WRITE RMDS 

MOV PORTB,OPPRT : OPPOSITE’ PORT ADDRESS 

MOVB PORTB,RMCS2(RO) ;SELECT PORT B 

MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
:SET REQUEST THROUGH PORT B 

CLR RMDS (RO) SET REQUEST FOR PORT B : 

MOVB PORTA,RMCS2(RO) ;SELECT PORT A 

MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
sRELEASE THE DRIVE THROUGH PORT A 

MOV #13,RMCS1(RO)  ;RELEASE DRIVE THROUGH PORT A 
sWAIT THE MEASURED TIMEOUT FOR THE PORT (+ 25%) 

MOV TIMEBP ,WATCH sSET WATCH TO MEASURED TIMEOUT VALUE + 25% 
sVERIFY THAT THE DRIVE IS SEIZED-8Y PORT B 

CLR CKERR ;CLEAR THE ‘CHECK noe fi INDICATOR 


MOV RMDS(RO),$BDDAT ";GET CONTENTS OF RMDS 
MOV + tf gSBDADR + FORM REGISTER ADDRESS OF ERROR MESSAGE 


ADD RO,$ ADD RH/RM BASE ADDRESS 
CLR $6 obDA 3 [WHAT REGISTER SHOULD BE 
CMP SGDDAT,SBDDAT 1S THE REGISTER OK ? 
per St sBR IF OK 
A COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
TST CKERR :REGISTER OK ? 
BEQ +6 “BR IF OK 
JMP i$ :BYPASS REST OF TEST IF NOT 


sWAIT eg THE iF by RELEASE = A rity E 
TST ATCH EQUAL ZERO ? 
BNE — BR IF NOT 


SEQ 0158 


CZ 
14 


R 
147 
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PORT ‘B 


062552 


oo~-ooo°o— 

oo—-—+—" Oo — 
ANN 
WOW 
non 


04 


> 4 oo—-oOoo00—-000 


001254 


001164 
001164 


063112 
001164 
001224 
001166 
177777 
000011 
000013 
001170 
001124 
001172 


001124 
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001122 
001124 


001126 
001240 
000010 


* 001240 


001126 
000010 


001254 
000000 
000000 
001126 
001126 
001126 


001126 


; CONFIRM THAT THE DRIVE HAS TIMED OUT 
sVERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


68$: MOV 


69$: MOV 


70$: MOV 


71$: MOV 


72$: NOP 
1$: SCOPE 


RELERR 


WRMDS ,SBDADR 
RO, $BDADR 


s;CLEAR THE "RELEASE ERROR ' INDICATOR 
: FORM THE ADDRESS OF RMDS FOR TYPEOUT 
D THE 1/0 BASE ADDRESS 


#MOL'PGM'DPRIDRYIWV. Pet ene ” 7 ihe CONSTANT 
PORTA,RMCS2(RO) ;SELECT P 


RMDS (RO) 


,STMP2 :GET THE DRIVE “STATUS A ag FROM PORT A. 


#P1P!WRL'OM,STMP ;CLEAR DONT CAR 


STMPO :COPY IT INTO ‘S$TMPO' 


WATA!VV,STMPO ;CLEAR PORT Me aetna BITS FROM THE COPY 
PORTB,RMCS2(RO) :SELECT PORT B. 


RMDS (RO) 


,STMP3  ;GET THE DRIVE STATUS P| sles FROM PORT B. 


#PIP!'WRL'OM,STMPS ZCLEAR DONT CAR 


STMP3,STMP1 


;COPY IT INTO '$TMP1° 


WATA'VV,STMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 


8 as at iI Hag hie REGISTER THE SAME FROM BOTH PORTS ? 
STMPO sREGISTERS ARE THE SAME: ARE THEY ZERO ? 

yg :BR IF NOT 

2$ sBYPASS THE REST OF THE CHECKS 

STMP2,SBDDAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
PORTB,PTNBR ; SEIZING any IF TEST SHOWS DRIVE NOT IN NEUTRAL 


PORTB,RMCS2(RO) ;SELECT 
$TMPO 


PORT B. 
SEE IF STATUS EQ 0 FROM PORT A. 


69% :BR IF ZERO 
PORTA,PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
STMP3,$BDDAT :'BAD DATA’ FOR ERROR TYPE OUT 


PORTA,RMCS2(RO) ;SELECT 
STMP1 


#-1,RELERR 


PORT A 
Soy i" Status: EQ ZERO FROM PORT B. 
SET RELEASE ERROR’ INDICATOR 


#11,RMCS1(RO) ;CLEAR THE DRIVE 
+ eatatiatcas ;RELEASE THE DRIVE 


STMP2,$BDDAT 


LOOK FOR BIT FAILURES WHEN RMDS READ 
ee PORT NUMBER 


#ATA,SBDDAT :DON'T CHECK THE ATIN BIT 
SGDDAT, »SBDDAT ;ALL BITS OK 


7 
STMP3,$BDDAT 


:BR IF OK PROM PORT A. 


:CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
; CHANGE PORT NUMBER 
DON'T CHECK THE ATIN BIT 


$GDDAT,S$BDDAT SEE IF READ OK FROM PORT B. 
72$ BR IF OK 


;LOOP ? 


22 APP, Pee RRR R RRR RR ES SERRE REE E EERE REPRESS ESE RRESOSCSOOOOOO OS © 


*TEST 50 


PORT ‘A* 


SEIZE ACCESS TEST 


SEQ 0159 


E 13 
CZRMRAO moat fat DU POR TST 1 MACRO V03.01 11-APR=80 14:26:10 PAGE 8-123 


150 PORT ‘A’ SEIZE ACCESS TEST SEQ 0160 


A 

s*VERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 

SEIZE THE DRIVE THROUGH PORT ‘A' BY WRITING O'S INTO RMDS. 
WRITE 1°S INTO RMER1, RMER2 THROUGH PORT ‘A’. 


READ RMER| , RMER2 THROUGH PORT 'B'. VERIFY THAT PORT 
'B' SEES O'S FROM EACH OF THESE REGISTERS. 


D. CLEAR RMER1, RMER2 THROUGH PORT ‘A’. 


E. WRITE 1°S INTO RMER1, RMER2 THROUGH PORT '‘B'. 
PORT 'A* SEES O'S FROM EACH OF THESE REGISTERS. 


F. RELEASE THE DRIVE THROUGH PORT ‘A’, VERIFY THAT THE DRIVE HAS 
SWITCHED TO PORT 'B' AND THAT THE ATTENTION BIT FOR PORT 'B' IS 
SET AND THE ATTENTION BIT FOR PORT ‘A’ IS NOT SET. 


G. ISSUE A RELEASE COMMAND THROUGH PORT 'B'. VERIFY THAT ng DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 


‘hhh hhh PPP PRR REESE SECC SSCS ESE SACSSSOCSCLOCLASSCLASLLLC ES 


a wo > 
i ira 


VERIFY THAT 


ow-- =e ee eeeeeeeenenneeeeneenenee 


063116 150: 
063116 005737 001300 TST KYBCTL PERFORMING ONLY SINGLE TEST ? 
063122 001406 BEQ 2$ :BR IF NOT 
063124 100002 BPL i$ 7BR_IF JUST ENTERED TEST 
063126 000137 003110 JMP EXEC sRETURN & GET NEXT TEST NUMBER 
063132 012737 177777 001300 1$: MOV #-1,KYBCTL sSET SINGLE TEST INDICATOR 
063140 012737 063154 001106 2%: MOV MTESTSO,S$LPADR ;SETUP SCOPE LOOP ADDRESS 
Pearce 012737 063154 001110 1ESTSO MOV MTESTSO,$LPERR ;SETUP ERROR LOOP ADDRESS 
063.54 112737 000050 001102 MOVB #50,$TSTNM MOVE #50 TO TEST NUMBER 
063162 012706 001100 MOV ASTACK,SP ;LOAD THE STACK POINTER 
1710 063166 012737 000031 001176 MOV #25. STIMES ::D0 25. ITERATIONS 
1749 
sCLEAR ATTENTION BITS FOR BOTH PORTS 
063174 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT #A 
063202 005060 000012 CLR RMDS (RO) ;SEIZE THE DRIVE 
063206 012760 000011 000000 MOV W1T,RMCS1(RO) ISSUE DRIVE CLEAR 
063214 012760 000013 000000 MOV W13,RMCS1(RO) RELEASE THE DRIVE 
063222 113760 001226 000010 MOVB PORTB,RMCS2(RO) :SELECT PORT #B 
063230 005060 000012 CLR RMDS (RO) SEIZE THE DRIVE pean PORT ‘B' 
063234 012760 000011 000000 MOV W11,RMCSI(RO) ISSUE DRIVE CLEAR 
063242 012760 000013 000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
SEIZE THE DRIVE THROUGH PORT A 
063250 001224 000010 MOVB ted RMCS2(RO) ;SELECT PORT 
063256 001224 001242 MOV PORTA, SELZPT ; STORE SEIZING PORT! S ADDRESS 
063264 000012 CLR RMDS (RO) sWRITE RMDS 
063270 001226 001244 MOV PORTB,OPPRT :"OPPOSITE’ PORT ADDRESS 
063276 177777 000014 MOV #-1,RMER1(RO) ;LOAD 1°S INTO RMER1 THROUGH PORT A 
063304 177777 000042 MOV #-1,RMER2(RO) ;LOAD 1°S INTO RMER2 THROUGH PORT A 
063312 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 


CZRMRAQ RMOS/3/ 
P A 
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@ 
a 
< 
- 


063430 


063434 
063442 
063450 


063456 


063606 


063610 
063616 
063624 


063632 


063656 


DU POR TST 1 
ACCESS TEST 
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o 
Fa 


oo—-o000 
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ww 
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001226 


001224 
001224 
000013 


001254 


000012 
001164 


001164 
001226 
001124 


001226 
001226 
000013 


001254 


001224 
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001240 
000010 
001240 


000016 


001240 


000010 
001240 
000000 


001126 


001126 
001240 
001126 


000010 
001240 
000000 


001122 


001124 
000610 


s VERIFY 


66$: 


67$: 


RELEASE THE 


VERIFY 


PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
PC,TST508 ; CHECK a 3 ae THROUGH PORT B 
PORTA,RMCS2(RO) ;SELECT TA 

PORTA,PTNBR ;MOVE PORT ADDRESS PO Fy eee FOR TYPEOUT 
RMER2(RO) CLEAR RMER2 0 

RMER1(RO) :CLEAR RMER1 ON POR: 

ASR1,RMAS(RO) CLEAR | “ae BIT FOR PORT A 
PORTB,RMCS2(RO) ;SELECT T B 

PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR Ni i 
#-1,RMER1(RO) LOAD 1°S INTO RMERI THROUGH PORT B 
#-1,RMER2(RO) LOAD 1°S a —- THROUGH PORT B 
PORTA,RMCS2(RO) ;SELECT PORT 

PORTA,PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
PC,TST50B :CHECK THE REGISTERS THROUGH PORT A 


DRIVE FROM PORT A 


PORTA,RMCS2(RO) ;SELECT PORT A 
PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13,RMCS1(RO) ISSUE RELEASE THROUGH PORT A 


DRIVE IS SEIZED BY PORT B WHEN RELEASED BY PORT A 


RELERR ;CLEAR ‘RELEASE ERROR’ INDICATOR 
#ATA'MOL !PGM!DPR'DRY! VV, S$GDDAT ; COMPARISON CONSTANT 
#RMDS ,SBDADR ;REGISTER ADDRESS INCREMENT 

RO, $BDADR sREGISTER ~y ADDRESS FOR TYPEOUT 
PORTB,RMCS2(RO) ;SELECT PORT B 

PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
RMDS (RO) ,STMPO sREAD STATUS REGISTER FROM PORT B 
PORTA,RMCS2(RO) ;SELECT PORT A 

PORTA,PTNBR ;MOVE PORT ADDRESS TO ye FOR TYPEOUT 
RMDS(RO) ,SBDDAT sDRIVE STATUS FROM PORT 

66$ ;BR IF STATUS FROM PORT A * VERO 


STMPO Z1S STATUS FROM PORT B ZERO ? 
_“ :BR IF ZERO 

STMPO,S$BDDAT ;CHECK STATUS FROM PORT B 
PORTB,PTNBR ;CHANGE PORT ADDRESS FOR TYPEOUT 
$GDDAT,$BDDAT  ;COMPARE WITH CONSTANT 

the : IF OK 


DRIVE FROM PORT B 
_ PORTB,RMCS2(RO) ;SELECT PORT B 


PORIB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


— W13,RMCS1(RO) =; ISSUE RELEASE THROUGH PORT B 
THE DRIVE IS STILL IN NEUTRAL 


RELERR ;CLEAR THE "RELEASE ERROR * INDICATOR 
#RMDS ,SBDADR FORM THE ADDRESS OF RMDS FOR TYPEQUT 
RO, $BDADR ADD THE 1/0 BASE ADDRESS 

#MOL 'PGM'DPR!DRY! VV, $GDDAT ;COMPARISON CONSTANT 
PORTA,RMCS2(RO) ;SELECT PORT A, 


SEQ 0161 
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063664 016037 000012 001170 MOV RMDS(RO), gs: ;GET THE DRIVE ee REGISTER FROM PORT A. 
063672 042737 024001 001170 BIC #P1P!WRL'OM,STMP2 7 CLEAR Bal CARES 
063700 013737 001170 001164 MOV STMP2,STMPO ;COPY IT INTO ' 
063706 042737 100100 001164 BIC MATA'VV,STMPO ;CLEAR gd DEPENDENT BITS FROM THE COPY 
063714 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 
063722 016037 000012 001172 MOV RMDS(RO),STMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
063730 042737 024001 001172 BIC #PIP!WRL'OM,STMP ;CLEAR DONT CARES 
063736 013737 001172 001166 MOV STMP3,STMP1 ;COPY IT INTO ‘S$TMP1' 
063744 042737 100100 001166 BIC MATA!VV,STMP1  ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
063752 023737 001164 001166 CMP $TMPO,STMP1 71S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
063760 001006 BNE 68% :BR IF NOT 
063762 005737 001164 TST $TMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
063766 001045 BNE 70$ :BR IF NOT 
063770 104046 EMT 46 
063772 000137 064156 JMP 72$ BYPASS THE REST OF THE CHECKS 
063776 013737 001170 001126 68$: MOV $TMP2,SBDDAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
064004 013737 001226 001240 MOV PORTB,PTNBR : SEIZING oa IF TEST SHOWS DRIVE NOT IN NEUTRAL 
064012 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 
064020 005737 001164 TST $TMPO ;SEE IF STATUS EQ 0 FROM PORT A. 
064024 001414 BEQ 69$ ;BR IF ZERO 
064026 013737 001224 001240 MOV PORTA,PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
064034 013737 001172 001126 MOV STMP3,$BDDAT ; "BAD DATA* FOR ERROR TYPE OUT 
064042 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A. 
064050 005737 001166 TST STMP1 ;SEE IF STATUS EQ ZERO FROM PORT B. 
064054 001012 BNE 70$ :BR IF NOT 
064056 012737 177777 001254 69%: MOV #-1,RELERR SET ‘RELEASE ERROR’ INDICATOR 
064064 012760 000011 000000 MOV #11,RMCS1(RO) ;CLEAR THE DRIVE 
064072 012760 000013 000000 MOV #13,RMCS1(RO)  ;RELEASE THE DRIVE 
064100 104026 EMT 26 
064102 013737 001170 001126 70S: MOV STMP2,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
064110 013737 001224 001240 MOV PORTA,PTNBR CHANGE PORT NU MBER 
064116 023737 001124 001126 CMP $GDDAT,SBDDAT ALL BITS OK 
064124 001401 BEQ 71% :BR IF OK PROM PORT A. 
064126 104007 EMT 7 
064130 013737 001172 001126 71%: MOV STMP3,$BDDAT ;CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
064136 013737 001226 001240 MOV PORTB,PTNBR ;CHANGE PORT NUMBER 
064144 023737 001124 001126 CMP $SGDDAT,$BDDAT ;SEE IF .cAD OK FROM PORT RB. 
064152 001401 BEQ 72% :BR IF « 
064154 104007 EMT 7 
064156 000240 72$: NOP 
064160 000004 SCOPE ;LOOP ? 
1750 064162 000137 064410 JMP TST51 :60 TO THE NEXT TEST ‘ 
;CHECK THE REGISTERS ON THE SELECTED PORT 
064166 TST50B: 
064166 005037 001250 CLR CKERR ;CLEAR THE ‘CHECK ERROR’ INDICATOR 
064172 016037 000014 001126 MOV RMER1(RO),$BDDAT ;GET CONTENTS OF RMERI 
064200 012737 000014 001122 MOV WRMER1,$BOADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
064206 060037 001122 ADD RO, $BDADR ;ADD_RH/RM BASE ADDRESS 
064212 005037 001124 CLR $GDDAT :WHAT REGISTER SHOULD BE 
064216 023737 001124 001126 CMP $SGDDAT,SBDDAT ;1S THE REGISTER OK ? 
064224 001403 BEQ 64% :BR IF OK 
064226 jperes EMT 6 
064230 005137 001250 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
064234 016037 000000 001126 64$: MOV RMCS1(RO),$BDDAT ;GET THE CONTENTS OF RHCSI 
064242 012737 000000 001122 MOV WRMCS1,$BDADR ;FORM ADDRESS OF REGISTER 
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064406 
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001122 
020000 


040000 
001250 


» 001124 


001250 


020000 


040000 
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001126 


001126 
001122 


001126 


000000 


ADD RO,$BDADR ; ADDRESS BASE 
BIT AMCPE ,SBDDAT ‘1S Migs 5 SET ? 
BEQ 65$ :BR IF 
EMT 11 
MOV ATRE,RMCSI1(RO) ;CLEAR "MCPE' 
65$: NOP 
CLR CKERR LEAR THE "CHECK ERROR’ INDICATOR 


MOV RMER2(RO) ,SBDDAT’ Ger CONTENTS OF RMER2 
MOV WRMER2,$BDADR ;FORM REGISTER S apeaese, ERROR MESSAGE 


ADD RO,$BDADR ;ADD_RH/RM BASE ADDR 

CLR $GDDAT sWHAT REGISTER SHOULD BE 

CMP SGDDAT,SBDDAT  ;1S THE REGISTER OK ? 

sat — BR IF OK 

COM CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 
668: MOV RMCS1(RO) ,SBDDAT GET THE CONTENTS OF RHCS1 


MOV #RMCS1,$BDADR  ;FORM ADDRESS OF REGISTER 


ADD RO,$BDADR sADDRESS BASE 

BIT #MCPE ,SBDDAT :1S 'MCPE' SET ? 

BEQ 67% :BR IF NOT 

EMT 11 

MOV MTRE,RMCS1(RO) ;CLEAR 'MCPE' 
67$: NOP 

RTS PC ;RETURN 


a ee ne ce NeMMeHeeeESE Tee eeTeT He eKAEReneREREnEN EN AEEE RTE RENEE AEE 


seTEST 51 PORT 'B* SEIZE ACCESS TEST 

:*VERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 

A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING O'S INTO RMDS. 
B. WRITE 1°S INTO RMER1, RMER2 THROUGH PORT 'B'. 


C. READ RMER1, RMER2 THROUGH PORT 'A'. VERIFY THAT PORT 
"A' SEES O'S FROM EACH OF THESE REGISTERS. 


D. CLEAR RMER1, RMER2 THROUGH PORT 'B'. 


WRITE *'S INTO RMER1, RMER2 THROUGH PORT ‘A’. VERIFY THAT 
PORT 'B' SEES O'S FROM EACH OF THESE REGISTERS. ; 


F. RELEASE THE DRIVE THROUGH PORT 'B'. VERIFY THAT THE DRIVE HAS 
SWITCHED TO PORT 'A' AND THAT THE ATTENTION 3!T ag PORT ‘A IS 
SET AND THE ATTENTION BIT FOR PORT 'B' IS NOI SET 


ISSUE A RELEASE COMMAND THROUGH PORT "AY, VERIFY THAT Hr DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 


Edith hhh he P PTTL ITIL L TALLIS CTCLCLCALL LET Tee 


ST51: 


BeBe Be Be Be Be Be Be Be Be we 


ese ee ee eeeereeeeeeene 
mn 


io) 
. 


Se li i ee ee ee 


TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 

BEQ es :BR IF NOT 

BPL 1$ :BR IF JUST ENTERED TEST 

JMP EXEC sRETURN & GET NEXT TEST NUMBER 
1$: MOV #-1  KYBCTL sSET SINGLE TEST INDICATOR 


SEQ 0163 


CZR 
1 


Z 
15 


MRAQ moat tas 


1 13 
OR TST 1 MACRO VO3.01 11-APR=80 14:26:10 PAGE 8-127 


DU P 
PORT 'B* SEIZE ACCESS TEST 
064432 012737 064446 001106 2$: MOV MTESTSI,$LPADR ;SETUP SCOPE LOOP ADDRESS 
arty 012737 064446 001110 rests MOV MTESTSI,$LPERR ;SETUP ERROR LOOP ADDRESS 
6 H 
064446 112737 000051 601102 MOVB #51,$TSTNM sMOVE #51 TO TEST NUMBER 
064454 012706 001100 5 MOV ASTACK, SP ;LOAD THE STACK POINTER 
064460 012737 000031 001176 MOV #25. SSTIMES 3:00 25. ITERATIONS 
;CLEAR ATTENTION BITS FOR BOTH PORTS 
064466 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT #A 
064474 005060 000012 CLR RMDS (RO) ;SEIZE THE DRIVE 
064500 012760 000011 000000 MOV #11,RMCS1(RO) ; ISSUE DRIVE CLEAR 
064506 012760 000013 000000 MOV #13, RMCS1(RO) SRELEASE THE DRIVE 
064514 113760 001226 000010 MOVB PORTB,RMCS2(RO) SELECT PORT #B 
064522 005060 000012 CLR RMDS (RO) ;SEIZE THE DRIVE THROUGH PORT ‘B' 
064526 012760 000011 000000 MOV #11,RMCS1(RO) ; ISSUE DRIVE CLEAR 
064534 012760 000013 000000 MOV #13,RMCS1(RO) ;RELEASE THE DRIVE 
;SEIZE THE DRIVE THROUGH PORT B 
064542 113760 001226 000010 MOVB PORTB,RECS2(RO) ;SELECT PORT B 
064550 013737 001226 001242 MOV PORTB,SEIZPT ;STORE SEIZING PORT'S ADDRESS 
064556 005060 000012 CLR RMDS (RO) ;WRITE RMDS 
064562 013737 001224 001244 MOV PORTA,OPPRT ; OPPOSITE’ PORT ADDRESS 
064570 012760 177777 000014 MOV #-1,RMER1(RO) ;LOAD 1°S INTO RMER1 THROUGH PORT B 
064576 012760 177777 000042 MOV #-1,RMER2(RO) ;LOAD 1°S INTO RMER2 THROUGH PORT B 
064604 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
064612 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
064620 004737 065460 JSR PC,1ST518 ;CHECK THE REGISTERS THROUGH PORT A 
064624 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
064632 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
064640 005060 000042 CLR RMER2(RO) ;CLEAR RMER2 ON PORT B 
064644 005060 000014 CLR RMER1(RO) ;CLEAR RMER1 ON PORT B 
064650 013760 001236 000016 MOV ASR1,RMAS(RO) ;CLEAR THE ATTENTION BIT FOR PORT B 
064656 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
064664 013 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
064672 012760 177777 000014 MOV #-1,RMER1(RO) ;LOAD 1°S INTO RMER1 THROUGH PORT A 
064700 012760 177777 000042 MOV #-1, RMER2 (RO) ;LOAD 1°S INTO: RMER2 THROUGH PORT A 
064706 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
064714 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
064722 004737 065460 JSR PC,1ST51B :CHECK THE REGISTERS THROUGH PORT B 
;RELEASE THE DRIVE FROM PORT B 
064726 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
064734 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
064742 012760 000013 000000 MOV #13,RMCS1(RO) ; ISSUE RELEASE THROUGH PORT B 
;VERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT B 
064750 005037 001254 CLR RELERR ;CLEAR "RELEASE ERROR’ INDICATOR 
064754 012737 111700 001124 MOV #ATA‘MOL !PGM!DPR'DRY! Vv, SGDDAT ;COMPARISON CONSTANT 
064762 012737 000012 001122 MOV #RMDS. SBDADR REGISTER ADDRESS INCREMENT 
064770 060037 001122 ADD RO, $BDADR sREGISTER 7h Daten FOR TYPEQOUT 
064774 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT 
065002 013737 001224 001240 MOV PORTA,PTNBR :MOvE PORT ADDRESS TO LOCATION FOR TYPEOUT 


SEQ 0164 


J 13 
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CZRMRAO RMOS/3/2 DU PO 
15] PORT *B' SEIZE ACCESS TEST «SEQ 0165 

065010 016037 000012 001164 MOV RMDS(RO) .STMPO  ;READ STATUS REGISTER FROM PORT A 

065016 113760 001226 000010 MOVB  PORTB,RMCS2(RO) ';SELECT PORT B 

065024 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
065032 016037 000012 001126 MOV RMDS(RO),$BDDAT ;DRIVE STATUS FROM PORT B 

065040 001404 BEQ 66$ ;BR IF STATUS FROM PORT B ZERO 

065042 005737 001164 TST $TMPO :1S STATUS FROM PORT A ZERO ? 

065046 001401 BEQ 66$ :BR IF ZERO 

065050 104031 : EMT 31 

065052 013737 001164 001126 66$: MOV $TMPO,SBDDAT | ;CHECK STATUS FROM PORT A 

065060 013737 001224 001240 MOV PORTA, PTNBR :CHANGE PORT ADDRESS FOR TYPEOUT 

065066 023737 001124 001126 CMP $GDDAT,S$BDDAT COMPARE WITH CONSTANT 

065074 001401 : BEQ 67$ BR IF OK 

065076 104027 EMT 27 

065100 000240 67$: NOP 

;RELEASE THE DRIVE FROM PORT A 

065102 113760 001224 0000T0 MOVB  PORTA,RMCS2(RO) ;SELECT PORT A 

065110 013737 001224 001240 MoV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
065116 012760 000013 000000 MOV #13,RMCS1(RO) ; ISSUE RELEASE THROUGH PORT A 

;VERIFY THAT THE DRIVE 1S STILL IN NEUTRAL 

065124 005037 001254 CLR RELERR ;CLEAR THE "RELEASE ERROR ' INDICATOR 
065130 012737 000012 001122 MOV #RMDS , SBDADR :FORM THE ADDRESS OF RMDS FOR TYPEOUT 
065136 060037 001122 ADD RO, SBDADR D THE 1/0 BASE ADDRESS 
065142 012737 011700 001124 MOV WMOL'PGM'DPR!DRYIWV, SGDDAT; COMPARISON. CONS TANT 
065150 113760 001224 000010 MOVB  PORTA,RMCS2(RO) ;SELECT PORT A. 
065156 016037 000012 001170 MOV RMDS(RO),$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
065164 042737 024001 001170 BIC #PIP:WRLIOM, STMP2 :CLEAR DONT CARES 
065172 013737 001170 001164 MOV STMP2, STMPO :COPY IT INTO 'STMPO' 
065200 042737 100100 001164 BIC WATA!VV,STMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
065206 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
065214 016037 000012 001172 MOV RMDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
065222 042737 024001 001172 BIC #PIP!WRL‘OM,STMP3 :CLEAR DONT CARES 
“065230 013737 001172 001166 MOV STMP3,STMP1 ;COPY IT INTO 'STMP1" 
065236 042737 100100 001166 BIC WATA'VV,STMP1 = :CLEAR PORT DEPENDENT BITS FROM THE C 
065244 023737 001164 001166 CMP $TMPO,STMP1 :1S THE STATUS REGISTER THE SAME FROM OBOTH PORTS ? 
065252 001006 BNE 68$ :BR IF NOT 
065254 005737 001164 TST $TMPO TREGISTERS ARE THE SAME: ARE THEY ZERO ? 
065260 001045 BNE 70$ :BR IF NOT 
065262 104046 EMT 46 
065204 000137 065450 JMP 72% ;BYPASS THE REST OF THE CHECKS 

065270 013737 001170 001126 68%: MOV STMP2,$BDDAT | ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
065276 013737 001226 001240 MOV PORTB,PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

65304 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT B. 

065312 005737 001164 TST $TMPO :SEE IF STATUS EQ 0 FROM PORT A. 

065316 001414 BEQ 69$ :BR IF ZERO 

065320 013737 001224 001240 MOV PORTA, PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
065326 013737 001172 001126 MOV STMPS,SBDDAT i °BAD DATA’ FOR ERROR TYPE OUT 

065334 113760 001224 000010 MOVB PORTA.RMCS2(RO) :SELECT PORT A 

065342 005737 001166 1ST STMP1 :SEE IF STATUS EQ ZERO FROM PORT B. 

065346 001012 BNE 70$ BR IF NOT 

065350 012737 177777 001254 69%: MOV #1 ,RELERR TSET "RELEASE ERROR’ INDICATOR 

065356 012760 000011 000001 MOV W11CRMCS1(RO) CLEAR THE DRIVE 

065364 012760 000013 000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 

065372 104026 EMT 26 


1780 


065374 


0 
065454 


065460 


065700 


065702 


CZRMRAO RMOS/3/2 
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000137 


005037 


000207 


000004 


R TST 1 


001170 
001224 
001124 


001172 
001226 
001124 


065702 


001250 


001124 


001250 


020000 


040000 
001250 


001124 


001250 


020000 
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001126 
001122 


001126 


000000 


001126 
001122 


001126 


000000 


71$: 


72$: 


TST51B: 


64%: 


65$: 


66$: 


67$: 


STMP2,SBDDAT 
PORTA,PTNBR 
it eemeamnati 


STMP3,$BDDAT 
PORTB,PTNBR 
$GDDAT ,S$BDDAT 
72$ 


TST52 


CHECK THE REGISTERS ON 


CKERR 
RMER1(RO),SBDDAT. 
WRMER1,SBDADR 
RO, $BDADR 


$GDDAT : 
$GDDAT,SBDDAT 
64$ 


6 
CKERR 
RMCS1(RO),SBDDAT. 
ay TAF $BDADR 
RO, SBDADR 

#MCPE ,SBDDAT 

65$ 


11 
#TRE,RMCS1(RO) 


CKERR 2CL 
RMER2(RO) ,SBDDAT. 


#RMER2, SBDADR 
RO, SBDADR 


$GDDAT 

SGDDAT ,SBDDAT 
66% 

CKERR 
RMCS1(RO), SBDDAT 
#RMCS1, SBDAD 

RO, $BDADR 
#MCPE ,SBDDAT 
i 

#TRE ,RMCS1(RO) 
PC 


;LOOK FOR BIT a WHEN RMDS READ 
CHANGE PORT NUMBER 

ALL BITS OK ? 

:BR IF OK FROM PORT A. 


:CHECK RMDS FOR BIT FAILURES = FROM PORT B. 
; CHANGE PORT NUMBER 
iSEE IF READ OK FROM PORT B. 


;LOOP ? 
GO TO THE NEXT TEST 
THE SELECTED PORT 


;CLEAR THE ‘CHECK ERROR’ INDICATOR 
;GET CONTENTS OF RMERI 

;FORM REGISTER ADDRESS OF ERROR MESSAGE 

;ADD_RH/RM BASE ADDRESS 

WHAT REGISTER SHOULD BE 

:1S ee OK ? 


;SET THE REGISTER COMPARE ERROR INDICATOR 
;GET THE CONTENTS OF RHCS1 

FORM sagt OF REGISTER 

:ADDRESS BASE 

31S *MCPE* SET ? 

:BR IF NOT 


:CLEAR "MCPE' 


EAR THE ‘CHECK ERROR’ INDICATOR 

GET CONTENTS OF RMER2 

: FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RH/RM BASE ADDRESS 

WHAT REGISTER SHOULD BE 

21S + REGISTER OK ? 


sSET THE REGISTER COMPARE ERROR INDICATOR 
GET THE CONTENTS OF RHCS} 
FORM ADDRESS OF REGISTER 
ADDRESS BASE 
[1S "MCPE* SET ? 
BR IF NOT 


;CLEAR ‘MCPE' 
;RETURN 


Peete eeeee eee eee eee eee eee eee eRe 


‘Pur NEWTEST HERE 


° ,eeeeeeeeeeeeeeeeee eee eee eee eee eee 


15152: 


SCOPE 


SEQ 0166 
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151 


1785 
1791 
1792 


1793 


065704 


065760 


066000 
066000 


066004 
066006 
066012 


066056 
066056 


066062 


066120 


005737 


000407 


013746 
104405 
104401 
000421 
013746 


104405 


000240 


000137 
003372 
377 


001300 
003110 


00 
100000 


065762 


001100 


066014 


001112 


001207 
001112 
000042 


377 
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-SBTTL END OF PASS ROUTINE 


EPPS S ITI T IIIT TTT TTT iT iTiririiiii, 

: SINCREMENT THE PASS NUMBER ($PASS) 

s*INDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 

s*TYPE "'END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT yvyyyy"’ 
> *WHERE XXXXX AND YYYYY . + eet NUMBERS 


;*I1F THERES A age he GO T 
:*1F THERE ISN'T 


SEOP: 
TST KYBCTL 
BEQ +6 
JMP EXEC 
CLR $STSTNM 
CLR STIMES 
INC $PASS 
001100 BIC. #100000,$PASS 
DEC (PC)+ 
$SEOPCT: .WORD 1 
BGT $DOAGN 
MOV (PC)+,a(PC)+ 
SENDCT: .WORD 1 
SEOPCT 
TYPE roe 


MOV $PASS,-(SP) 


TYPDS 
TYPE ,67$ 
BR 66$ 
Fo -ASCIZ / TOTAL ERRORS 
MOV SERTIL,-(SP) 
TYPDS 
TYPE , CRLF 
CLR SERTIL 
$GET42: MOV a#42,R0 
BEQ $DOAGN 
RESET 
SENDAD: JSR PC, (RO) 
NOP 
NOP 
NOP 
$DOAGN: 
JMP a(PC)+ 
$RTINAD: .WORD TSTIAA 
000 $ENULL: .BYTE -1,-1,0 


JUMP TO TSTIAA 


4h ye ee VIA KEYBOARD COMMAND ? 


RETURN TO KEYBOARD CONTROL 

:;2ERO THE TEST NUMBER 

++ ZERO THE NUMBER OF ITERATIONS 
J mies gy oy THE PASS NUMBER 

::DON*T ALLOW A NEG. NUMBER 


sees 
::RESTORE COUNTER 


3: TYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 


Tittntius PASS #/ 


::SAVE $PASS FOR TYPEOUT 
3: TYPE PASS NUMBER 
3.60 Sadsat there ASCII WITH SIGN 
ii TYPE ASCIZ STRING 
GET OVER THE asc 
SINCE LAST REPORT / 


::SAVE SERTTL FOR TYPEOUT 

3: TOTAL NUMBER OF ERRORS 

3:G0 TYPE--DECIMAL ASCII WITH SIGN 
3: TYPE CARRIAGE RETURN, LINE FEED 
::CLEAR ERROR TOTAL 

::GET MONITOR ADDRESS 

;:BRANCH IF NO MONITOR 

;:CLEAR THE WORLD 

::G0 TO MONITOR 

3: SAVE ROOM 


7 =RETURN 
7¢NULL CHARACTER STRING 


SEQ 0167 
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SEQ 0168 


Soooooooooocoooo 
SOAAAOASOOO OO 
PAEAPAAAASAAO 
TRIP an a a a ot et 
ONNOUUSE Ww 
SFM LOWOMWA Mw 


EWN CO OONOAUFE WN —ODOONOUES WR 
ooo 
o 
Aa 
~ 
a 
Nm 


PORIRIPORIN RY ee st ss ss Ss Ss es 


28 066254 
29 
30 
31 
32 066256 


53 066356 
54 


SOoooooooooo°coooo 
— a tt OS OO OS OO 
MNMNWUPIPN OPM rnrmwmuvumtrys 


000207 


062737 


066174 


000135 
000004 


000100 
000004 


000002 
000006 


000021 


177777 
001260 


000021 
001260 


000004 
000004 


000004 
000006 


000004 
000004 


» SBTTL SUBROUTINES 


SURE EREAEAEREREEAEE AEE TEETER ARKH eee 


SBTTL CLOCK SUBROUTINES 


sROUTINE TO CHECK FOR KW11-L OR KW11-P CLOCKS 
:1F CLOCK IS PRESENT, THE CLOCK WILL BE STARTED 


000004 CKCLK: MOV #CKCLK1, AMERRVEC 
CLR AWERRVEC +2 
TST ASLKCSR 
MOV SLPVEC 
MOV #CLOCK.(R1)4 
MOV #300, (R1) 
113030 MOV #-1,a$LKCSB 
113020 MOV #135 ,aSLKCSR 
BR CKCLK3 
CKCLK1: ADD #4,SP ; 
000004 MOV WCKCLE2, QWERRVEC. 
TST a$_K 
MOV StLVEC, R1 
MOV #CLOCK, (R1)4 
MOV #300, (R1) 
112764 MOV #100. a$LKS 
BR CKCLK3 
CKCLK2: ADD #4 SP 
ADD #2, (SP) 
000004 CKCLK3: MOV #6. AWERRVEC 
RTS PC 
;ROUTINE TO COUNT CLOCK TICKS 


001256 CLOCK: ADD #17., TIME 
B 1$ 


001256 MOV #~1, TIME 
1$: TST WATCH 


2$ 
001260 SUB + ne 


2 
CLR WATCH 
2s: RTI 


pe KS Fou VECTOR FOR CLOCK CHECK 


;CHECK FOR KW11-P 
:KW11=P VECTOR ADDRESS 


;SET UP KW1l-P VECTOR 
:PSW = PRI 6 

s;LOAD COUNTER BUFFER WITH 1°S 

:SET CLOCK = CNT UP, 16MS, CONT INT 


RESTORE THE STACK POINTER 
; CHANGE ERROR VECTOR TO CHECK FOR KWI1-L 
LOOK FOR KWIT-L 
RWIT=L VECTOR ADDRESS 
SET UP KW1l-L VECTOR 
:PSW = PRI 6 
;SET KWil-L INTERRUPT 


RESTORE THE STACK POINTER 
: INCREMENT RETURN, NO CLOCK 
sRESTORE THE ERROR VECTOR 


;ADD 17 MS TO ELAPSED TIME COUNTER 
;BRANCH IF NO OVERFLOW 
sOVERFLOW = RESTORE a tee COUNT 


‘aR oe ALREADY ZERO ? 

; SUBTRACT 14 MS FROM WATCH DOG COUNTER 
:3R IF NOT MINUS 

CLEAR WATCH DOG COUNTER 


ROUTINE TO CALCULATE + AND = 25% TIME TOLERANCE VALUES 


SETUP STACK 
sSAVE STACK 
:GET TIME VALUE 


TOLER: SUB #4,SP 


sMOVE TIME VALUE 

sMOVE VALUE AGAIN 
:DIVIDE BY 2 

:DIVIDE BY 2 AGAIN (FOR 
CALCULATE UPPER LIMIT 


A TOTAL OF 4) 
FOR TIMEOUT 


:CALCULATE LOWER LIMIT FOR TIMEOUT 
RETURN WITH TOLERANCES ON THE STACK 


CZRMRAO RMO5/3/2 DU POR TST 1 
SCOPE HANDLER ROUTINE 


1 


066360 


066370 
066372 
066374 


066606 


001191 
000416 
013746 


SOwoooo-Owo 


o--——O0 ~~ =| O— = 


040000 


000004 


000004 


000004 


001103 
001115 
001000 
001110 


001103 
001176 


004000 
001100 


001104 
001176 


000001 


001106 


| N 1 
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112550 


000004 


001103 
112464 
001106 


112432 


001104 


001104 
001176 


3 
0 


-SBTTL SCOPE HANDLER ROUTINE 


EPPS ELT TTT PTT STITT Tic citi titi Titi Tiriritiririters 
SeTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
s*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
:*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

:*THE SWITCH wither on teat BY THIS ROUTINE ARE: 


3*SW14=1 L EST 
3*SwWil=1 INHIBIT ITERATIONS 
7 *Sw09=1 LOOP ON ERROR 
> *CALL 
3* SCOPE 3; SCOPE=I10T 
$SCOPE: 
CKSWR ;TEST FOR CHANGE IN — SwWR 
1$: BIT #B1T14,aSWR :LOOP ON PRESENT TEST? 
BNE SOVER YES IF Swi4=1 
;MMAAASTART OF CODE FOR THE XOR TESTERMAAMA 
$XTSTR: BR 6$ \ self RUNNING ON THE ""XOR" TESTER CHANGE 


THIS INSTRUCTION TO A ‘'NOP’’ (NOP=240) 
MOV QWERRVET,-(SP) :;SAVE THE CONTENTS OF THE ERROR VECTOR 
MOV #58, QFERRY VEC 23 SET FOR TIMEOUT 


TST 7060 TIME OUT ON XOR? 
MOV (SP)+ ,a#ERRVEC ; sRESTORE THE ERROR VECTOR 
BR $SVLAD :G0 TO THE NEXT TEST 
5$: CMP (SP)+,(SP)+ ::CLEAR THE STACK AFTER A TIME out 


MOV (SP)+ ,a#ERRVEC + sRESTORE THE ERROR VECTOR 
BR 7$ LOOP ON Le PRESENT TEST 
6$:;MMHAHEND OF ye FOR THE XOR TESTERAAMAM 
2$: TSTB SERFLG 


T + HAS AN ERROR OCCURRED? 
BEQ 3$ ;BR IF NO 
a SERMAX ,SERFLG i EMAX. ERRORS FOR THIS TEST OCCURRED? 
H es N 
BIT #B1T09,aSWR 3;LOOP ON ERROR? 
BEQ 4% ;:BR IF NO 
7$: a A cme 7:SET LOOP ADDRESS TO LAST SCOPE 
V 
4$: CLRB SERFLG 72ZERO THE ERROR FLAG 
CLR STIMES aero THE NUMBER OF haa aman TO MAKE 
BR 1$ sESCAPE TO THE NEXT T 
3$: BIT #BIT11,aSwR +: INHIBIT ITERATIONS? 
BNE 1$ 37;BR IF YES 
TST $PASS ag FIRST PASS OF PROGRAM 
BEQ 1$ INHIBIT ITERATIONS 
INC SICNT INCREMENT ITERATION COUNT 
CMP STIMES,SICNT 1 CHECK THE NUMBER OF ITERATIONS MADE 
BGE SOVER ;BR IF MORE ITERATION REQUIRED 
1$: MOV #1,S$1CNT ::REINITIALIZE THE ITERATION COUNTER 
MO! SMXCNT, STIMES T NUMBER OF ITERATIONS TO DO 
$SVLAD: INCb STSTNM > COUNT TEST NUMBERS 
MOV (SP), SLPADR SI SAVE SCOPE LOOP ADDRESS 
MOV (SP) ,SLPERR 3;SAVE ERROR LOOP ADDRESS 
CLR SESCAPE 7: CLEAR THE ESCAPE FROM ERROR ADDRESS 
MOVB #1, SERMAX ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
$OVER: MOV STSTNM,QADISPLAY ;;DISPLAY TEST NUMBER 
MOV $LPADR, (SP) > FUDGE ree ADDRESS 


RT] sc PIKES 


SEQ 0169 


 CZRMRAO RMOS/3/2 DU POR TST 1 
SCOPE HANDLER ROUTINE 


066610 
5 


066612 


066742 


066744 


066760 
066762 


000004 


104407 
022737 
601001 
000000 


000002 


104401 


001004 
013746 


020000 


066744 
001207 


112216 


066104 


001207 


001114 


001116 


B 14 
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000042 


SMXCNT: 4. ; MAX. NUMBER OF ITERATIONS 
~-SBTTL ERROR HANDLER ROUTINE 


OPPS PTT TPP it iti iii ii iii ii iii ii ii tt. 
TSTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO SERRTYP ON ERROR 
:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

*SW15=1 HALT ON ERROR 


;*SW13=1 INHIBIT ERROR TYPEOUTS 
:*SWi0=1 BELL ON ERROR 
3 *CALL 
‘7 ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR: 
CKSWR ::TEST FOR CHANGE IN SOF T-SwWR 
MOVB STSTNM, TSTNUM 
7$: INCB SERFLG :3SET THE ERROR FLAG 
BEQ 7$ ;DON'T LET THE FLAG GO TO ZERO 


MOV STSTNM,QDISPLAY ;:DISPLAY TEST NUMBER AND ERROR FLAG 
BIT #B1T10,aSWR + sBELL ON ERROR? 
BEQ 1$ :NO = SKIP 
TYPE , SBELL ; :RING BELL 

1$: INC SERTTL ; COUNT THE NUMBER OF ERRORS 
MOV (SP) ,SERRPC ::GET ADDRESS OF ERROR INSTRUCTION 
SUB #2, SERRPC 
MOVB @SERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
BIT coi tS oee 73 SKIP he a! IF SET 


BNE :;SKIP_ TYPEOUTS 
JSR PC,SERRTYP 3:G0 TO USER ERROR ROUTINE 
TYPE » $CRLF 
208: 
2$: TST OSWR ;:HALT ON ERROR 
BPL 3$ ssSKIP 1F CONTINUE 
HALT ;;HALT ON ERROR! 
35 CKSWR 3: TEST FOR CHANGE IN SOF T=SWR 
CMP MSENDAD ,a#42 3:ACT-11 AUTO-ACCEPT? 
BNE 6% ;;BRANCH IF NO 
os HALT ssVESs 


RT] 3 RETURN 
-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


LRAT 


SeTHIS ROUTINE USES THE “ITEM CONTROL BYTE'' ($ITEMB) TO DETERMINE WHICH 


;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE’ (SERRTB), 


:*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
SERRTYP: 
TYPE 


» SCRLF 37""CARRIAGE RETURN’ & "'LINE FEED" 
MOV RO,-(SP) 3 


oe AV 
CLR RO ;:PICKUP THE ITEM INDEX 
B1SB a#$1TEMB,RO 
BNE 1$ aiit ITEM NUMBER is tet JUST 
YPE THE PC OF THE ERROR 


MOV SERRPC,-(SP) 1 tCAVE SERRPC FOR TYPEOUT 


SEQ 0170 


CZRMRAO RMO5/3/2 DU POR TST 1 
ERROR MESSAGE TYPEOUT ROUTINE 


066766 


067100 


067102 
067104 


067114 


104402 


000402 


013146 
104405 
005711 
001403 
104401 
000764 


012601 


001207 
067034 


001207 


067114 


001207 
040 


C 
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TYPOC 

R 10% 
1$: DEC RO 

ASL RO 

ASL RO 

ASL 


RO 
ADD #SERRTB,RO 
MOV (RO)+, 28 


BEQ 
TYPE 
2$: -WORD 0 
TYPE - SCRLF 
3$: MOV (RO)+,4$ 
BEQ 5$ 
TYPE 
4$: -WORD 0 
TYPE ,SCRLF 
5$: MOV R1,-(SP) 
MOV (RO)+,R1 
BEQ 9$ 
MOV (RO)+,R0 
6$: TSTB (RO) + 
BNE 7$ 
MOV a(R1)+,-(SP) 
TYPOC 
R 8$ 
7$: 
MOV a(R1)+,-(SP) 
TYPDS 
8$: TST (R1) 
BEQ 9$ 
TYPE 11% 
BR 6$ 
9$: MOV (SP)+,R1 
10$: MOV (SP)+,RO 
io gScet 
000 11$: rT e-¥¢ 
.SBTTL TYPE ROUTINE 


1 
1 


4 
0-2 


ge ADDRESS 
‘a ASCII(ALL DIGITS) 


; ADJUST THE INDEX SO THAT IT WILL 
33 WORK FOR THE ERROR TABLE 


73FORM TABLE POINTER 

;3PICKUP ‘‘ERROR MESSAGE'’ POINTER 
dL TYPEOUT IF NO POINTER 

3: TYPE THE ‘ERROR MESSAGE"’ 

33''ERROR MESSAGE'’ POINTER GOES HERE 
33''CARRIAGE RETURN’ & "'LINE FEED"’ 

+ ¢PICKUP "DATA —. POINTER 


:3''DATA HEADER’ POINTER GOES HERE 
1 CARRIAGE RETURN" & "'LINE FEED"' 
:;SAVE R1 

::PICKUP ‘DATA TABLE’ tt 

;;BR_ IF NO DATA TO BE TYPED 
+¢PICKUP "DATA 4 pong POINTER 
33"‘OCTAL'’ OR * pero 

;;BR IF DECIMA 

s:SAVE a(R1)+ FOR TYPEOUT 

32:G0 TYPE--OCTAL ASCII(ALL DIGITS) 


77SAVE a(R1)+ FOR TYPEOUT 
3:G0 TYPE=-DECIMAL ASCII WITH SIGN 
3:18 THERE ANOTHER NUMBER? 


3;BR IF NO 

zi: TYPE TWO(2) SPACES 
3;LOOP 

; RESTORE R1 


: RESTORE RO 
4 ee RETURN'' & ‘LINE FEED"’ 


URN 
::TWO(2) SPACES 


RAAT ATTA KAKA eee 


: #ROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 gif 


3*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

:*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
; *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
:*NOTE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

** 

> *CALL 


sf 
* 
" TYPE 
7° ME SADR 
* 


:*1) USING A TRAP INSTRUCTION 
TYPE ,MESADR 


::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


SEQ 0171 


4 


CZRMRAO 11? head DU POR 


TYPE ROUTIN 


067120 


067220 
067224 


067242 


067244 


067340 


105737 


013746 
105366 


So 
Oo 
wo 
™~ 
Nm 
o 


TST 1 


001157 


000002 


000002 
000011 
000200 


067406 


067270 
001156 


001154 
000001 


067270 
067406 


000049 
067270 
000007 


111650 


111644 
177600 
000023 


111624 
111620 


177600 
000021 


4 
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067406 


$TYPE: 


5$: 


6$: 


‘7$: 


;HORIZONTAL TAB 


8$: 
9$: 


$TYPEC: 


1018: 


102$: 


STPFLG 
1$ 


(RO)+,=(SP) 
4$ 

(SP)+ 
(SP)+,RO 
#2, (SP) 
WHT, (SP) 
MCRLF, (SP) 
5$ 


(SP)+ 


SCHARCNT 
2$ 


PC ,STYPEC 
SFILLC,(SP)+ 
2$ 


$NULL ,-(SP) 
1(SP) 

6$ 
PC,STYPEC 
SCHARCNT 

7$ 
PROCESSOR 
#’ , (SP) 

PC ,STYPEC 
#7, $CHARCNT 
9$ 

(SP)+ 

2$ 

asTKs 

10$ 
a$TKB,-(SP) 


#177600, (SP) 
#SXOFF, (SP) 
102$ 


astxs 

101% 

asTKB, (SP) 
#177600, (SP) 
WSHON, (§P) 


(SP)¢ 


33:18 THERE A TERMINAL? 
;3BR IF YES 
7 OF ata IF NO TERMINAL 


;; SAVE RO 

3;GET ADDRESS OF ASC1Z STRING 

;3PUSH CHARACTER TO BE TYPED ONTO STACK 
;;BR IF IT ISN'T THE TERMINATOR 

:31F TERMINATOR POP IT OFF THE STACK 

; RESTORE RO 

Hamp ne RETURN PC 


3 RANCH IF <HT> 
3;BRANCH IF NOT <CRLF> 


;;POP °<CR><LF> EQUIV 
37 TYPE A CR AND LF 


3;CLEAR CHARACTER COUNT 
z T NEXT CHARACTER 

:GO TYPE THIS CHARACTER 

:1S IT TIME FOR ee CHARS.? 
LHF NO GO GET NEXT CHA 
::GET # OF FILLER CHARS. “NEEDED 
3:AND THE NULL CHAR 
;;DOES A NULL NEED TO BE TYPED? 
:;BR IF NO--GO POP THE NULL OFF OF STACK 
3:G0 TYPE A NULL 
te A COUNT AS A COUNT 
pk 


:;REPLACE TAB WITH SPACE 
TYPE A SPACE 

: BRANCH I IF NOT AT 

: POP SPACE OFF STACK 
GET NEXT CHARACTER 


‘oR IFN IN or BUF FER? 


3;GET CHA 
+:STRIP EXTRANEOUS BITS 
37WAS CHAR XOFF 
37BR IF NOT 
3: WAIT FOR CHAR 


:GET CHAR 


::BR IF NOT 
FIX STACK 


SEQ 0172 


E 14 
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TYPE ROUTINE ~  $EQ 0173 
067342 108: 
067342 105777 111602 1STB a$sTPs ;;WAIT UNTIL PRINTER IS READY 
067346 100375 BPL 10$ 
067350 116677 000002 111574 MOVB 2(SP) ,asTPB ;s LOAD CHAR TO y TYPED INTO DATA REG. 
067356 122766 000015 000002 CMPB #CR,2(SP) 31S CHARACTER A CARRIAGE RETURN? 
067364 001003 BNE 1$ :;BRANCH IF NO 
067366 105037 067406 CLRB slece’ + YES~-CLEAR CHARACTER COUNT 
067372 000406 BR $TYPE T 
067374 122766 000012 000002 18: CMPB ALF, asp) ::1$ CHARACTER A LINE FEED? 
067402 001402 BEQ $TYP ;;BRANCH IF YES 
067404 105227 INCB (Ps ;:COUNT THE CHARACTER 
067406 000000 $CHARCNT:.WORD 0 ;; CHARACTER COUNT STORAGE 
067410 000207 $STYPEX: RTS PC 
8 -SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


ECCS PTT STi irre e cree citi titi tii iit itt ttt tt 

:*THIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
s*OCTAL (ASCII) NUMBER AND TYPE IT. 

:*$TYPOS=--ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


> *CALL: 

ie MOV NUM,-(SP) ;;NUMBER TO BE TYPED 

yt TYPOS 7iCALL FOR TYPEOUT 

i* -BYTE N 3zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
:* -BYTE ™ 77M=1 OR 0 

7* hd et hd LEADING ZEROS 

‘* ;0=SUPPRESS LEADING ZEROS 


* 


:*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
+ *$TYPOS OR $TYPOC 


*CALL: 

ie MOV NUM,=-(SP) 3;NUMBER TO BE TYPED 

se TYPON 3;:CALL FOR TYPEOUT 

**® 

he 6 a arate HERE FOR TYPEGUT OF A 16 BIT NUMBER 

e*CALL: 

3* MOV NUM,=-(SP) ;zNUMBER TO BE TYPED 

:¢ TYPOC 3:CALL FOR TYPEOUT 
067412 017646 000000 $TYPOS: MOV a(SP),-(SP) 3z:PICKUP THE MODE 
067416 116637 000001 067635 MOVB 1(SP), *SOFILL ;;LOAD ZERO FILL SWITCH 
067424 112637 067637 MOVB (SP)+, sees ::NUMBER OF DIGITS TO TYPE 
067430 062716 000002 ADD #2, (SP) ;;ADJUST RETURN ADDRESS 
067434 000406 BR $TYPON 
067436 112737 000001 067635 $TYPOC: MOVB #1,S0FILL 3:SET THE ZERO FILL SWITCH 
067444 112737 000006 067637 MOVB #6, SOMODE*1 37SET FOR SIX(6) DIGITS 
067452 112737 000005 067634 $TYPON: MOVB #5. $0CNT 37SET THE ITERATION COUNT 
067460 010346 MOV R3,-(SP) 77 SAVE R3 
067462 010446 MOV ep om. 77 SAVE R4& 
067464 010546 MOV R5,-(SP) 3; SAVE R5 
067466 113704 067637 MOVB SOODE*1. R4 + IGET THE NUMBER OF DIGITS TO TYPE 
067472 005404 NEG 
067474 062704 000006 ADD 16.R4 ;;SUBTRACT IT FOR MAX. ALLOWED 
067500 110437 067636 MOVB R4 ,SOMODE 3;SAVE IT FOR USE 
0675046 113704 067635 MOVB SOFILL,R4 3;GET THE ZERO FILL SWITCH 
porate beef: 000012 MOV 12(SP),R5 ::PICKUP THE INPUT NUMBER 


003 CLR R3 3: CLEAR THE OUTPUT WORD 


CZRMRAO_RMOS/3/2 DU POR TST 1 


BINARY TO OCTAL 


067636 


067640 


067666 


(ASCI1) AND TYPE 


5 

5 

3 

3 

4 067636 
3 177770 
2 

4 

3 

4 

3 

7 


000060 


337 067634 


016666 000002 000004 


0 
000000 


746 020200 
$°? 000020 


5 
766 000055 000001 


1$: ROL R5 
BR 3$ 
2$: ROL R5 
ROL R5 
ROL R5 
MOV R5,R3 
3$: ROL 
DECB SOMODE 
BPL 7 
BIC #177770,R3 
BNE 4$ 
TST RG 
BEQ 5$ 
4$: INC RG 
BIS #'0,R3 
5$: BIS #' ,R3 
MOVB R3,8% 
TYPE 8% 
7$: DECB $OCNT 
BGT 2$ 
BLT 6$ 
INC R4 
BR 2$ 
6$: MOV (SP)+,R5 
MOV (SP)+,R4 
MOV (SP)+,R3 
MOV 2(SP),4(SP) 
MOV (SP)+, (SP) 
RT] 
8$: -BYTE QO 
BYTE 0 
SOCNT -BYTE 0 
SOFILL: .BYTE 0O 
SOMODE: .WOR 0 


F 14 
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;ROTATE MSB INTO ‘'C"’ 
360 DO MSB 
::FORM THIS DIGIT 


;:GET LSB OF seit DIGIT 
2s TYPE a DIGIT 


+:GE) RID OF JUNK 
sz TEST FOR 0 
3;SUP°RESS THIS 0? 
:3BR IF YES 
7;DON'T SUPPRESS ANYMORE 0'S 
3iMAKE THIS DIGIT ASCII 
: = MAKE ASCII IF NOT ALREADY 
3;SAVE FOR TYPING 
#360 ie THIS DIGIT 
;COUNT BY 1 
3BR IF MORE TO DO 
3;BR IF DONE 
+: INSURE LAST DIGIT ISN'T A BLANK 
3:GO0 DO THE LAST DIGIT 
; RESTORE R5 
; RESTORE R4 
;;RESTORE R3 
3:SET THE STACK FOR RETURNING 


; ;RETURN 
::STORAGE FOR ASCII DIGIT 
3; TERMINATOR FOR TYPE ROUTINE 
sero DIGIT COUNTER 
+ ZERO FILL SWITCH 
NUMBER OF DIGITS TO TYPE 


. WORD 
-SBTTL CONVERT BINARY TO DECIMAL. AND TYPE ROUTINE 


SERRA Tee Tee KKK KKK eee eee 


SATHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 


:*SIGNED DECIMAL (ASCI1) NUMBER AND TYPE IT. 


DEPENDING ON WHETHER THE 


:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 


;*BEFORE THE FIRST DIGIT OF THE 
7+ eee WITH SPACES. 
Liz 


MOV 
TYPDS 


$TYPDS: 


NUM,=-(SP) 


RO,-(SP) 
R1.-(SP) 
R2.-(SP) 
R3.~ (SP) 

- (SP) 
936200 (SP) 
20(SP)_RS 
1$ 
R5 
w=, 1(S5P) 


NUMBER. LEADING ZEROS WILL ALWAYS BE 


;;PUT THE BINARY NUMBER ON THE STACK 
3:60 TO THE ROUTINE 


3;PUSH RO ON STACK 
3;;PUSH R1 ON STACK 
37PUSH R2 ON STACK 
23PU USH R3 ON STACK 
;PUSH R5 ON STACK 
SET BLANK SWITCH AND SIGN 
3;GET THE INPUT NUMBER 
:;BR IF INPUT IS POS. 
;7MAKE THE BINARY NUMBER POS. 
37MAKE THE ASCI1 NUMBER NEG. 


SEQ 0174 


CZRMRAOQ Sanne’ S a's POR TST 1 


CONVERT 


BINARY T 
067674 


070054 


070064 
070066 
070070 
070072 


000012 


000000 
000000 
000000 


070073 


070054 
000040 


070044 


000001 177777 


000060 
000040 


000010 


177777 =177776 


070054 
000002 000004 


1$: 


2$: 
3$: 


4$: 


8$: 


9$: CLRB 


$DTBL: 


$DBLK: .BIKW 
SBITL 


RO 
wSDBL* R3 
(R3)4 


$DTBL(RO),R1 
R5 


(SP) 

6$ 

1(SP) ,-1(R3) 
#'0,Re 


#' ,R2 
R2,(R3)+ 
(RO) + 
RO,#10 
2$ 


8$ 

R5,R2 

6$ 

(SP) + 

$ 

~1(SP) ,-2(R3) 
(R3) 


(SP)+,R5 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 

, SDBLK 
2(SP),4(SP) 
(SP)+, (SP) 


4 
TTY INPUT ROUTINE 


14 


G 
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O DECIMAL AND TYPE ROUTIN 


SEQ 0175 


ERO THE CONSTANTS INDEX 
ETUP THE OUTPUT POINTER 
T THE FIRST CHARACTER TO A BLANK 
LEAR THE BCD NUMBER 
;GET THE CONSTANT 
ORM THIS BCD DIGIT 
R_ IF DONE 
NCREASE THE BCD DIGIT By 1 


;;ADD BACK THE CONSTANT 
::CHECK IF BCD DIGIT=0 
:sFALL THROUGH IF 0 
ee¢STILL + LEADING 0°S? 


sf 
:$ 
s§ 
iC 
+ F 
38 
35 


3: YES--SET THE SIGN 

::MAKE THE BCD DIGIT ASCII 

::MAKE IT A SPACE IF NOT ALREADY A DIGI 
::PUT_THIS CHARACTER IN THE OUTPUT BUFF 
::JUST INCREMENTING 

::CHECK THE TABLE INDEX 

::G0 DO THE NEXT DIGIT 

::G0 TO EXIT 

;:GET THE LSD 

3360 CHANGE TO ASCII 

eS ce THE FIRST NON-ZERO? 
oe N 

2: YES--SET THE SIGN FOR TYPING 
3:SET THE TERMINATOR 

::POP STACK INTO R5 

;:POP STACK INTO R3 

3:POP STACK INTO R2 

::POP STACK INTO R1 

::POP STACK INTO RO 

::NOW TYPE THE NUMBER 

3sADJUST THE STACK 


::RETURN TO USER 


T 
ER 


;eeereeekee eee eee eee eee eee eee Kee eee eee eee 


* ENABL LSB 
$TKCNT: .WORD 


$TKQEND=. 


—OVO 


:*TK INITIALIZE ROUTINE 
s*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 


;:NUMBER OF ITEMS IN QUEUE 
3; INPUT POINTER 

;;QUTPUT POINTER 

2: TTY KEYBOARD QUEUE 


H 14 
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TTY INPUT ROUTINE SEQ 0176 
:*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
s*CALL: 

:* JSR PC, STKINT 
:* RETURN 
070074 005037 070064 $TKINT: CLR STKCNT CLEAR COUNT OF ITEMS IN QUEUE 
070100 012737 070072 070066 MOV A#STKOSRT,STKQIN «MOVE THE STARTING ADDRESS OF THE 
070106 013737 070066 070070 MOV $TKQIN, $TKQOUT sQUEUE INTO THE INPUT & OUTPUT POINTERS. 
070114 012737 070144 000060 MOV MSTKSRV,QMTKVEC ; s INITIALIZE We KEYBOARD VECTOR 
070122 012737 000200 000062 MOV #200 ,a#TKVEC+2 $3 "'BR' 
070130 005777 111012 TST asTKB 3 CLEAR DONE . LAG 
070134 012777 000100 111002 MOV #100,a8$TKS : : ENABLE TTY KEYBOARD INTERRUPT 
070142 000207 RTS PC 7 RETURN TO CALLER 
3*TK SERVICE ROUTINE 
:*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
:*1T IN THE QUEUE. 
070144 117746 110776 $TKSRV: MOVB a$TKB,-(SP) ::PICKUP THE CHARACTER 
070150 042716 177660 BIC #°C177, (SP) ::STRIP THE JUNK 
070154 021627 000007 1$: CMP (SP) ,#7 3:18 IT A CONTROL G? 
070160 001004 BNE 2$ ;;BRANCH IF NO 
070162 022737 000176 001140 CMP MSWREG,SWR si1S SOFT-SWR SELECTED? 
070170 001500 BEQ 6$ 33:60 TO SWR CHANGE 
070172 2$: 
070172 022737 000001 070064 CMP #1,$TKCNT sz1S THE QUEUE FULL? 
070200 001004 BNE 3$ ;:BRANCH IF NO 
070202 104401 001202 TYPE ,SBELL zRING THE TTY BELL 
070206 005726 TST (SP) + :; CLEAN CHARACTER OFF OF STACK 
070210 000451 BR 5$ SPRL 
070212 021627 000023 3$: CMP (SP) #23 3718 1T A CONTROL=S? 
070216 001021 BNE 32% ;;BRANCH IF NO 
070220 005077 110720 CLR astKs :;DISABLE TTY KEYBOARD INTERRUPTS 
070224 005726 1ST (SP)+ i: CLEAN CHAR OFF STACK 
070226 105777 110712 31$: TSTB astTKs ;WAIT FOR A CHAR 
070232 100375 BPL 31$ +: LOOP UNTIL ITS THERE 
070234 117746 110706 MOVB a$TKB,-(SP) 3:GET THE CHARACTER 
070240 042716 177600 BIC #°C177, (SP) ::MAKE IT 7-BIT ASCII 
070244 022627 000021 CMP (SP)+,#21 3:18 11 A CONTROL-Q? 
070250 001366 BNE 318% ;;BRANCH IF NO 
070252 012777 000100 110664 MOV #100,a$TKS ; sREENABLE TTY KEYBOARD INTERRUPTS 
070260 000002 RT] URN 
070262 005237 070064 32$: INC $TKCNT >: COUNT THIS CHARACTER 
070266 021627 000140 CMP (SP) #140 ::1S IT UPPER CASE? 
70272 002405 BLT 4 > BRANCH IF YES 
070274 021627 000175 CMP (SP) ,#175 3:18 17 A SPECIAL CHAR? 
070300 003002 BGT 4% : ;BRANCH IF YES 
070302 042716 000040 BIC #40, (SP ;MAKE IT UPPER CASE 
070306 112677 177554 4$: MOVB ispse. as Txoin : AND PUT IT IN QUEUE 
070312 005237 070066 INC °  $TKQIN UPDATE THE POINTER 
070316 023727 070066 070073 CMP $TKQIN, #STKQEND : 3GO OFF THE END? 
070324 001003 BNE 5$ = BRANCH IF NO 
070326 012737 070072 070066 MOV #STKQSRT ,STKQIN :]RESET THE POINTER 
070334 000002 : 5$: RT] > ;RETURN 


1 14 
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TTY INPUT ROUTINE SEQ 0177 


PUR RM RATA A ee A ATT TTT ETAT TATE e eRe R KAKA REET Re eRe e eee 
: #SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 

;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
:*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
;*CALL WHEN OPERATING IN TTY INTERRUPT MODE. 


070336 022737 000176 001140 $CKSWR: CMP #SWREG, SWR i318 THE SOFT=SwR SELECTED 

070344 001104 BNE 15$ sEXIT IF NOT 

070346 105777 110572 TSTB = @STKS =:1$ A CHAR WAITING? 

070352 100101 BPL 15$ iil NOT, EXIT 

070354 117746 110566 MOVB  a$TKB,-(SP 

070360 042716 177600 BIC #°C177, (SP +t MAKE IT 7-BIT ASCII 

070364 021627 000007 CMP (SP) #7 ::1S IT A CONTROL-G? 

070370 001300 BNE 2$ ::1F NOT, PUT IT IN THE TTY QUEUE 

: AND EXIT 

SERRATE Ree eee Tee eK KARA eeeteeteKeKeeees 
: SCONTROL 1S PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
;*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
:*CONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 

070372 123727 001134 000001 é$: CMPB $AUTOB, #1 ;;ARE WE RUNNING IN AUTO=MODE? 

070400 001674 BEQ 2$ ::BRANCH IF YES 

070402 005726 TST (SP)+ ;iCLEAR CONTROL=-G OFF STACK 

070404 004737 070074 JSR PC, STKINT ;7; FLUSH THE TTY INPUT QUEUE 

070410 005077 110530 CLR asTKs ;z:DISABLE TTY KEYBOARD INTERRUPTS 

070414 112737 000001 001135 MOVB #1,$INTAG ;zSET INTERRUPT MODE INDICATOR 

070422 104401 071200 TYPE »SCNTLG 7:ECHO THE CONTROL-G (*G) 

070426 104401 071205 $GTSWR: TYPE »SMSWR ;i TYPE CURRENT CONTENTS 

070432 013746 000176 MOV SWREG,-(SP) si: SAVE SWREG FOR TYPEOUT 

070436 104402 TYPOC 3:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 

070440 104401 071216 TYPE SMNEW ::PROMPT FOR NEW SWR 

070444 005046 19$: CLR -(SP) 3; CLEAR COUNTER 

070446 005046 CLR -(SP) 37 THE NEW SWR 

070450 105777 110470 7$: TSTB astTKs 77 CHAR THERE? 

070454 100375 _ BPL 7$ ::]F NOT TRY AGAIN 

070456 117746 110464 MOVB = aSTKB,-(SP) ::PICK UP CHAR 

070462 042716 177600 BIC #°C177, (SP) ::MAKE IT 7-BIT ASCII 

070466 021627 000025 9$: CMP (SP) ,#25 :z:1S 17 A CONTROL-U? 

070472 001005 BNE 10$ ::BRANCH IF NOT 

070474 104401 071173 TYPE »SCNTLU 37 YES, ECHO CONTROL-U (“U) 

070500 062706 000006 20$: ADD #6,SP : TGNORE PREVIOUS INPUT 

070504 000757 BR 19$ LET'S TRY IT AGAIN 

070506 021627 000015 10$: CMP (SP) ,#15 eciS TY & 2t8>7 

070512 001022 BNE 16$ ::BRANCH IF NO 

070514 005766 000004 TST 4 (SP) s:YES, IS IT THE FIRST CHAR? 

070520 001403 BEQ 11$ +:BRANCH IF YES 

070522 016677 000002 110410 MOV 2(SP),aSWR 7 SAVE NEW SWR 

070530 062706 000006 11$: ADD #6,5P >: CLEAR UP STACK 

070534 104401 001207 14$: TYPE SCRLF S ECHO <CR> AND <LF> 

070540 123727 001135 000001 CMPB SINTAG,#1 : RE-ENABLE TTY KBD INTERRUPTS? 


CZRMRAO git tS Sas POR 


TTY INPUT ROUTI 


070636 


070640 


076726 


NOG ASNONO 


000720 


011646 


000002 
005737 


000002 


TST 1 


000100 


067270 
000060 


000067 


000060 
000002 


000002 
177776 


001206 


000004 
000004 


070664 


070064 
070064 


070070 
070072 
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110366 


000002 


000004 
070073 
070070 


— + 
aw 
re 
=z 
“ 
+ 


17$: INC 


18$: TYPE 
BR 
-DSABL LSB 


a ee 


15$ 
#100,a$TKS 


PC ,STYPEC 
(SP) ,#60 
18$ 


(SP) ,#67 
18$ 
#60,(SP)+ 
2(SP) 


;;BRANCH IF NOT 
7 7RE~ — TTY KBD INTERRUPTS 


:TECHO. CHAR 
CHAR < 0? 

;:BRANCH IF YES 
HAR 7? 


st 
+ BRANCH IF YES 
:STRIP=OFF ASCI1 

31S THIS THE FIRST CHAR 
+: BRANCH IF YES 
3zNO, SHIFT PRESENT 
33 CHAR OVER TO MAKE 
as ROOM FOR NEW ONE. 
3;KEEP COUNT OF CHAR 
7;SET IN NEW CHAR 
;7GET THE NEXT ONE 
si TYPE 7<CR><LF> 
si SIMULATE CONTROL=U 


:*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


*CALL: 


® 


$RDCHR: a 


1$:_ TST 


23: RT] 


+ panbseeananengnneosenrnassecsestseosacesensesaentonnekobeennonin 


RDCH 
i RETURN HERE 


(SP) ,-(SP) 
4(SP),2¢SP) 
4 (SP) 


-(SP) 
#64$,-(SP) 


STKCNT 
1$ 


STKCNT 
a$TKQOUT ,4(SP) 
$TKQOUT 


3;GET A CHARACTER FROM THE QUEUE 


::CHARACTER IS ON THE STACK 
;:WITH PARITY BIT STRIPPED OFF 


::PUSH DOuN THE PC AND 

: GET READY FOR A CHARACTER 
“PUT NEW PS ON STACK 

PUT NEW PC ON STACK 

POP NEW PC AND PS 


7;WAIT ON A CHARACTER 
;DECREMENT THE COUNTER 


£361 ONE CHARACTER 
UPDATE THE POINTER 


Q0 
$TKQOUT, #$TKQEND iUDID IT GO OFF OF THE END? 
2t ;:BRANCH IF NO 
WSTKOSRT,STKQOUT Bd THE POINTER 
URN 


¢*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


7 *CALL: 
7° RDLIN 
;* RETURN HERE 
*® 
$RDLIN: MOV R3,-(SP) 
CLR -(SP) 
1$: MOV ASTTYIN,RS 
2$: CMP @STTYING7,R3 


77 INPUT A STRING FROM THE TTY 


ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
7: TERMINATOR WILL BE A BYTE OF ALL O'S 


sSAVE R3 
:CLEAR THE RUBOUT KEY 
‘GET ADDRESS 
;;BUFFER FULL? 


SEQ 0178 
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TTY INPUT ROUTINE SEQ 0179 

070744 101456 LOS A$ ::BR IF YES 

070746 104410 RDCHR :GO REA : ant CHARACTER FROM THE TTY 
70750 112613 MOVB = (SP) +, (R3) =GET CHARACTER 

070752 122713 000177 10$: CMPB «#177, (R3) SI1§ 1T A RUBOUT 

070756 001022 BNE 5$ ::BR IF NO 

070760 005716 TST (SP) iTS THIS THE FIRST RUBOUT? 

07076 001007 BNE 6$ ;BR IF NO 

070764 112737 000134 071162 MOVB so #"\,9$ Si: TYPE A BACK SLASH 

070772 104401 071162 TYPE ,9$ 

070776 012716 177777 ; MOV #-1, (SP) ::SET THE RUBOUT KEY 

071002 005303 ;  6$: DEC R3 ;;BACKUP BY ONE 

071004 020327 071164 CMP R3,#$TTYIN sSTACK EMPTY? 

071010 103434 | BLO 4$ ::BR IF YES 

071012 111337 071162 MOVB (R3),9$ a7 ie TO TYPEOUT THE DELETED CHAR. 
071016 104401 071162 TYPE 9$ ::G0 TYPE 

071022 000746 BR 3$ ::G0 READ ANOTHER CHAR. 

071024 005716 58: TST (SP) + ;RUBOUT KEY SET? 

071026 001406 BEQ 7$ ;BR IF NO 

071030 112737 000134 071162 MOVB = #"\,9$ ::TYPE A BACK SLASH 

071036 104401 071162 TYPE ,9$ 
71042 005016 CLR (SP) 3;:CLEAR THE RUBOUT KEY 

071044 122713 000025 7$: CMPB #25,(R3) 3271S CHARACTER A CTRL U? 

071050 001003 BNE 8$ ::BR IF NO 

071052 104401 071173 TYPE »SCNTLU 37: TYPE A CONTROL ‘'U"’ 

071056 000726 BR 1$ 3:G0 START OVER 

071060 122713 000022 8$: CMPB #22,(R3) 3371S CHARACTER A ‘'*R''? 

071064 001011 BNE 3$ >:BRANCH IF NO 

071066 105013 CLRB (R3) Roe THE GHAR ACTER 

071070 104401 001207 TYPE $CRLF SiTYPE ACR & ' 

071074 104401 071164 TYPE STTYIN si TYPE THE INPUT nines 

071100 000717 BR $ +260 vet ANOTHER CHACTER 

071102 104401 001206 4$: TYPE ,SQUES sTYPE A 

071106 000712 BR 1$ >: CLEAR Te BUFFER AND LOOP 

071110 111337 071162 38: MOVB = (R3),9$ [ECHO THE CHARACTER 

071114 104401 071162 TYPE 9% 

071120 122723 000015 ACMPB #15, (R3)+ 7: CHECK FOR RETURN 

071124 001305 BNE 2$ ;;LOOP IF NOT RETURN 

071126 105063 177777 CLRB 3s -1(R3) TI CLEAR RETURN (THE 15) 

071132 104401 001210 TYPE , oLF si TYPE A LINE FEED 

071136 005726 TST (SP)+ 3: CLEAN RUBOUT KEY FROM THE STACK 

071140 012603 MOV (SP)+,R3 s RESTORE R3 

071142 011646 MOV (SP) ,-(SP) + sADJUST THE STACK AND PUT ADDRESS OF THE 

071144 016666 000004 000002 MOV 4(SP),2(SP) a3 FIRST ASCII] CHARACTER ON IT 

071152 012766 071164 000004 MOV MSTTYIN,4(SP) 

071160 000002 RT] RETURN 

071162 000 9$: -BYTE 0 3 STORAGE FOR ASCII CHAR. TO TYPE 
071163 000 “BYTE 0 ; TERMINATOR 

071164 STTYIN: .BLKB 7 sRESERVE 7 BYTES FOR TTY INPUT 

071173 136 125 O15 $CNTLU: .ASCIZ /*U/<15><12> CONTROL "'U"’ 

071200 136 107 015 $CNTLG: .ASCIZ /*G/<15><12>. ) FECONTROL "G 

071205 015 012 123 $MSWR: .ASCIZ <15><12>/SWR = 

071216 040 040 116 $MNEW: .ASCIZ / NEW = / 


-EVEN 
1 ~SBTTL READ AN OCTAL NUMBER FROM THE TTY 


, ee eeekeeee eee eee eee eee eee eee Ree eee eee 


STHIS ROUTINE WILL READ AN OCTAL (ASCI1) NUMBER FROM THE Tl¥ AnD 


CZRMRAO RMO5/3/2 DU POR TST 1 


READ AN OCTAL NUMBER FROM THE TTY 


SOOOCOCCCOOCOOCOCOCOCOOCO 
NNN NS NS NS NSN NNN NS 


WWWAWANAWW tw 
MmMRn—— |S O 
AMAL MOSLWO 


330 


COOOCOCOCOCOOCOCOOCCOoOOCOCOCOCOOOCOO 


000000 


000004 000002 


071356 


000060 


000067 


177770 


000012 
071366 


001206 


:*CHANGE IT TO BINARY. 
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;*THE INPUT CHARACTERS WILL BE CHECKED TO Spe THEY ARE LEGAL 
s*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A ‘'?'' WILL BE TYPED 
>*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 


> * THEN = RETYPED. THE INPUT 


>*CALL 


ye RDOCT 
:* RETURN HERE 
*® 

$RDOCT: MOV (SP) ,=(SP) 
MOV 4(SP),2(SP) 
MOV RO,-(SP) 
MOV R1,-(SP) 
MOV R2,-(SP) 

1$: RDLIN 
MOV (SP)+,RO 
MOV RO,5$ 
CLR R1 
CLR R2 

28: MOVB (RO)+,=-(SP) 
BEQ 3$ 
CMPB #'0, (SP) 
BGT 4$ 
CMPB #'7, (SP) 
BLT 4$ 
ASL R1 
ROL R2 
ASL R1 
ROL R2 
ASL R1 
ROL R2 
BIC #*C7, (SP) 
ADD (SP)+,R1 
BR 23 

3$: TST (SP)+¢ 


MOV R1,12(SP) 
MOV R2,$HIOCT 
MOV (SP)+,R2 


MOV (SP)+,R1 
MOV (SP)+,RO 
RT] 
4$: TST (SP)+ 
CLRB (RO) 
TYPE 
5$: -WORD OQ 
TYPE $QUES 
R i$ 
$HIOCT: 0 


I$ 


TERMINATED BY TYPING A CARRIAGE RETURN. 


;;READ AN OCTAL NUMBER 
;;LOW ORDER BITS ARE ON TOP OF THE STACK 
::HIGH ORDER BITS ARE IN $HIOCT 


fete ad reek FOR THE 
3;PUSH RO ON STACK 

3;PUSH R1 ON STACK 

3;PUSH R2 ON STACK 

3;READ AN ASCIZ LINE 

3:GET ADDRESS OF 1ST CHARACTER 
3zAND SAVE IT 

3;:CLEAR DATA WORD 


;:PICKUP THIS CHARACTER 
::1F ZERO GET OUT 

::MAKE SURE THIS CHARACTER 
3218S AN OCTAL DIGIT 


s2% 
2384 
33*8 


:eSTRIP THE ASCII JUNK 
31 THIS DIGIT 


TICLEAN TERMINATOR FROM STACK 
SAVE THE RESULT 


::POP STACK INTO R2 
::POP STACK INTO R1 
: POP STACK INTO RO 
;RETURN 
STCLEAN. PARTIAL FROM STACK 
::SET A TERMINATOR 
:: TYPE UP THRU THE BAD CHAR. 


e ib a “ey g “~vEe 
pi TRY AGAIN 
HIGH ORDER BITS GO HERE 


. WORD 
.SBTTL SAVE AND RESTORE RO-RS ROUTINES 


PARRA e eee eee eee eee eee eee eee eee eee eeree 


: aSAVE RO-R5 
:*CALL: 


ie SAVREG 
;*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 


SEQ 0180 


CZRMRAO RMO5/3/2 DU POR TST 1 


SAVE AND RESTORE RO-R5 ROUTINES 


13 


eloleleleleleleleleloloa) 
SSN NS NSS 
— ee ss os os ss 
et ee ee ee ee eh he hee) 
mwN——-CoOoO NNN NS 
FOofofnwuoetfwuoo 


071506 


000002 


010046 


000200 


011646 


000022 


000022 


000022 


000002 


071520 


;*TOP=-=(+16) 


te 42===(418) 

se tho==RS 

T* 46---R4 

3% 4+8---R3 

3*+10---R2 

3 *412---R1 

3*414---R0 

$SAVREG: 
MOV RO,-(SP) 
MOV R1,-(SP) 
MOV R2,-(SP) 
MOV R3,-(SP) 
MOV R4,-(SP) 
MOV R5,-(SP) 
MOV 22(SP),-(SP) 
MOV 22(SP),-(SP) 
MOV 22(SP) ,=(SP) 
MOV 22(SP) ,-(SP) 
RT] 

> *RESTORE RO-R5 

3*CALL: 

7* RESREG 

$RESREG: 
MOV (SP)+,22(SP) 
MOV (SP)+,22(SP) 
MOV (SP)+,22(SP) 
MOV (SP)+,22(SP) 
MOV (SP)+,R5 
MOV (SP)+,R4 
MOV (SP)+,R3 
MOV (SP)+,R2 
MOV (SP)+,R1 
Tt (SP)+,RO 


R 
-SBTTL TRAP DECODER 


CPTI ISTP r iii iii titi iit tii iii iti tiititi itt 
SSTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘'TRAP'’ INSTRUCTION 
:*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 


:*OF THE DESIRED ROUTINE. 


:*GO TO THAT ROUTINE. 


STRAP: 


RO,-(SP) 
2(SP),RO 


$STRPAD(RO) ,RO 
RO 
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7:SAVE PS OF MAIN FLOW 
:-SAVE PC OF MAIN FLOW 
::SAVE PS OF CALL 
:2SAVE PC OF CALL 


;sRESTORE PC OF CALL 
7 sRESTORE PS OF CALL 

; PC OF MAIN FLOW 
::RESTORE PS OF MAIN FLOW 
::POP STACK INTO R5 


::POP STACK INTO R2 
::POP STACK INTO RI 
;:POP STACK INTO RO 


THEN USING THE ADDRESS OBTAINED IT WILL 


AVE RO 
SIGET TRAP ADDRESS 
;;BACKUP BY 2 

:2:GET RIGHT BYTE OF TRAP 
::POSITION FOR INDEXING 
3; INDEX TO TABLE 

3:60 TO ROUTINE 


3:THIS 1S USE TO HANDLE THE ‘’GETPRI'’ MACRO 


$TRAP2: 


MOV 


(SP) ,-(SP) 


;:MOVE THE PC DOWN 


SEQ 0181 


CZRMRAO ta DU POR TST 1 


TRAP DECODER 


14 


071510 
071516 


071546 
071550 


016666 000004 000002 
000002 
071506 


067640 
070426 
070336 


071426 


MOV 
RT] 


4(SP*,2(SP) 


~SBTTL TRAP TABLE 


>*THIS TABLE CONTAINS THE —— ADDRESSES OF THE ROUTINES CALLED 
:*BY THE ‘‘TRAP’’ INSTRUCTION 


$TRPAD: . 
$ 


ROUTINE 


$TYPDS 
$GTSWR 


$CKSWR 
$RDCHR 
$SRDLIN 
$RDOCT 


$SAVREG ; 


SRESREG 


STRAP2 

3; CALL=TYPE 
3;CALL=TYPOC 
7; CALL=TYPOS 
3; CALL=TYPON 
3; CALL=TYPDS 


;;CALL=GTSWR 


3: CALL=CKSWR 
3; CALL=RDCHR 
3;CALL=RDLIN 
3; CALL=RDOCT 
;CALL=SAVREG 
3; CALL=RESREG 
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SEQ 0182 


:;MOVE THE PSW DOWN 
:sRESTORE THE PSW 


TRAP+1(104401) 
TRAP+2(104402) 
TRAP+3( 104403) 
TRAP +4 (104404) 
TRAP+5 (104405) 
TRAP +6 (104406) 
TRAP+7(104407) 
TRAP+10(104410) 
TRAP+11(104411) 
TRAP#+12(104412) 
TRAP+13(104413) 
TRAP+14(104414) 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 


GET SOFT-SWR SETTING 


TEST FOR CHANGE IN SOF T=SWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY 1YPEIN STRING ROUTINE 
READ AN OCTAL NUMBER FROM TTY 
SAVE RO-R5 ROUTINE 

RESTORE RO=-R5 ROUTINE 


r—- ~—— == —- - ——— . 
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TELETYPE MESSAGES — - SEQ 0183 


} -SBTTL TELETYPE MESSAGES 

3 071552 200 105 116 ENTERA: .ASCIZ <CRLF>/ENTER DRIVE ADDRESS: / 

4 071601 040 111 116 ADRERR: .ASCIZ_ / INVALID ADDRESS/<CRLF> 

5 071623 200 120 117 PORTAIS: .ASCIZ <CRLF>/PORT A ADDRESS IS: / 

6 071650 200 120 117 PORTBIS: .ASCIZ <CRLF>/PORT B ADDRESS IS: / 

7? 071675 200 116 117 NOCLOCK: .ASCIZ <CRLF>/NO th My L' OR *P* CLOCK/<CRLF><LF> 
8 071733 012 105 116 TESTNO: .ASCIZ <LF>/ENTER TEST . 

9 071753 040 111 116 BADNO: .ASCIZ / INVALID bp NUMBER /<CRLE> 

10 072001 040 105 122 TSTERR: .ASCIZ / ERRORS/<CRL 

11 072012 200 012 122 ADDRIS: .ASCIZ CCRLFD<LFSORH/ RM ADDRESS (RMCS1) IS: @ 
\¢ 072047 012 105 116 NTRH11: .ASCIZ <LF>@ENTER 9H/RM ADDRESS: @ 


C 15 
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TEST ERROR MESSAGES SEQ 0184 
} -SBTTL TEST ERROR MESSAGES 
3 072076 127 122 117 EMI: sASCIZ /WRONG DRIVE TYPE/ 
4 072117 104 122 111 EM: *ASCIZ /DRIVE NOT ON LINE/ 
5 072141 123 105 122 EM3: -ASCIZ leareee NUMBER READ yt oe EACH PORT NOT THE SAME/ 
6 072223 104 122 111 EMG: -ASCIZ /DRIVE NOT SEIZED BY 
? 072254 127 122 117 EMS: ASCIZ /WRONG STATUS SEEN BY PE. SEIZING PORT/ 
8 072322 122 105 107 EM6: ASCIZ /REGISTER CONTENTS WERE SEEN BY OPPOSITE PORT = DRIVE WAS SEIZED/ 
9 072422 122 105 107 EM7: sASCIZ = /REGISTER CONTENTS she AFTER RELEASE OR TIMEOUT/ 
10 072503 122 105 107 EM10: .ASCIZ /REGISTER CONTENTS WRONG/ 
11 072533 103 117 116 EM11: .ASCIZ /CONTROL BUS PARITY WERROR READING mune REGISTER/ 
12 072617 104 122 111 EMI: ASCIZ /DRIVE NOT SEIZED BY DRIVE CLEAR COM 
13 072667 122 105 101 —M13: ASCIZ /READIN PRESET DOES NOT SET VOLUME “WALID. FOR THE PORT/ 
14 072754 126 117 114 EM14: ASCIZ /VOLUME VALID SET ON THE WRONG PORT 
15 073017 101 124 124 EM15: ASCIZ /ATITN BIT WRONG AFTER TIMEOUT - REQUEST NOT SET/ 
16 073076 101 124 124 EM16: ASCIZ /ATTN BIT WRONG AFTER RELEASE = REQUEST SET/ 
17 073151 101 124 124 EM17: .ASCIZ /ATTN BIT WRONG AFTER RELEASE = REQUEST NOT SET/ 
18 073230 104 iZe 111 EM20: ASCIZ /DRIVE NOT SEIZED WHEN ATTN BIT FOR PORT i 
19 073310 104 122 111 EM21: ASCIZ /DRIVE SEIZED WHEN ZERO WRITTEN IN ATTN BIT 
20 073363 104 122 111 EM22: ASCIZ /DRIVE NOT IN NEUTRAL AFTER TIMEOUT ~ REQUEST NOT SET/ 
21 073450 124 111 115° EM23: ASCIZ /TIMEOUT CLEARED THE DRIVE'S ERROR BIT/ 
22 073516 122 105 114 EM24: ASCIZ /RELEASE COMMAND RELEASED DRIVE rt My ERRORS SET/ 
23 073575 124 111 115 EM25: ASCIZ /TIMEOQUT ONE-SHOT DID NOT RETRIGGER/ 
24 073640 104 122 111 EM26: ASCIZ /DRIVE NOT IN NEUTRAL AFTER RELEASE - REQUEST " SET/ 
25 07372 122 105 107 EM27: ASCIZ ‘/REGISTER WRONG AFTER RELEASE WITH REQUEST SET/ 
26 074003 104 122 111 EM30: ASCIZ /DRIVE SEIZED BY RELEASE COMMAND ISSUED WHEN ise IN NEUTRAL/ 
27 074100 104 122 111 EM31: ASCIZ /DRIVE IN NEUTRAL AFTER RELEASE - REQUEST SET/ 
28 074155 101 124 124 EM32: ASCIZ /ATITN BIT WRONG AFTER RECALIBRATE COMMAND/ 
29 074226 104 122 111 EM33:  .ASCIZ /DRIVE RETURNED TO NEUTRAL IF DRIVE CLEAR GIVEN WHILE DRIVE SEIZED/ 
30 074330 104 122 111 EM34: ASCIZ /DRIVE RETURNED TO NEUTRAL _IF MASSBUS INIT GIVEN WHILE DRIVE SEIZED/ 
31 074433 124 111 115 EM35: ASCIZ /TIMEOUT ONE SHCT FIRED WITHOUT REGISTER ACCESS/ 
32 074512 124 111 115 EM36: .ASCIZ /TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS/ 
33 074564 104 122 111 EM37: ASCIZ /DRIVE 1S NON-EXISTENT ('NED’ BIT SET)/ 
34 074632 101 124 124 EM40: ASCIZ /ATTN BIT FOR PORT NOT RESET BY MASSBUS CLEAR/ 
35 074707 124 111 115 EM41: ASCIZ /TIMEOQUT CLEARED THE ATTENTION BIT/ 
36 074751 104 122 111 EM42: = .ASCIZ /DRIVE NOT IN NEUTRAL OR SEIZED AFTER ATIN BIT WRITTEN/ 
37 075037 104 122 111 EM43: ASCIZ /DRIVE IN NEUTRAL AFTER ATTENTION BIT WRITTEN/ 
38 075114 127 122 111 EM44: ASCIZ /WRITE ATTENTION BIT DID NOT SET PORT REQUEST/ 
39 075171 103 117 116 EM45: ASCIZ @CONTROLLER SELECT SWITCH ON DRIVE NOT IN ‘A/B‘@ 
40 075250 103 101 116 EM46: ASCIZ /CAN'T ACCESS DRIVE THROUGH EITHER PORT/ 
41 075317 101 124 124 EM47: ASCIZ /ATIN BIT FOR SEIZING PORT NOT CLEARED BY MASSBUS INIT/ 
42 075405 101 124 124 €M50: .ASCIZ /ATIN BIT FOR OPPOSITE PORT CLEARED BY DRIVE CLEAR/ 
43 075467 101 124 124 EM51: ASCIZ /ATTN BIT NOT CLEARED BY MASSBUS INIT, DRIVE IN NEUTRAL/ 
44 075556 124 110 105 €M52:  .ASCIZ /THE ATTN BIT SET AFTER TIMEQUT WITH NO ete ee & ‘ERR’ SET/ 
45 075651 103 101 116 EM53: .ASCIZ /CAN'T READ THE ATTN BIT FROM THE ‘OPPOSITE’ PORT/ 
46 075732 122 105 114 €M54: .ASCIZ /RELEASE COMMAND RECOGNIZED WHEN ISSUED BY NONSSE IZING PORT / 
47 076025 124 111 115 EM55: .ASCIZ /TIMEOUT ONE=SHOT IS LESS THAN 500 MS/ 
48 076072 122 110 057 €M56: .ASCIZ @RH/RM DIDN'T RESPOND TO ADDRESSING@ 
49 076135 120 117 122 EM57: .ASCIZ /PORT REQUEST FLOP(S) WRONG STATE/ 
50 076176 101 124 124 EM60: .ASCIZ /ATTENTION NOT RESET BY WRITING RMAS/ 
51 076242 101 124 124 EM61: .ASCIZ /ATTENTION NOT RESET BY GO/ 
52 076274 101 124 124 EM62: .ASCIZ /ATTENTION RESET BY GO WHEN NOT SEIZED/ 
53 076342 104 122 111 €M63: .ASCIZ /DRIVE SEIZED BY UNIT READY CHANGE/ 
54 076404 101 124 124 EM64: .ASCIZ /ATTENTION NOT SET BY UNIT READY CHANGE/ 
4 076453 126 117 114 EM65: .ASCIZ /VOLUME VALID NOT RESET BY UNIT READY/ 


CZRMRAO RMO5/3/2 DU POR TST 1 
TEST ERROR MESSAGES 


WWAAANWNIN NNN NINN 2 2 Ss SS Ss Ss Ss 
AUEWN— SO OONOU EWN OD ODNAUS WR SOD DNOUS WH 


076520 
076571 


SSS 
MWS WRN oO 
WOW INNO 
—O— MWWNWNO 


100327 


100410 


_—OoO—-OoO—- Oo] | O— OO — — 
Of OLfOLOOfFOOCLfOCO 
WOWMOMOVWMOUVMOUTIU 


040 


nt ed od ot 
— OW nt a ss Ss Ss Ss Ss Ss Ss Ss SS 


D 
MACRO VO3.01 11-APR-80 14:26:10 PAGE 


o-oo OoO—- Oo — O— + OO — 
FMLMLML ML MMH MMS ror 


OWUWIWWNO WOW WN OWOWOWOWOWIWOWWIWWOOUWWW 


o-—-—— + O —" Oo — 
SM MMH WL PM NPr 


001242 
001164 


DT1: 


NO ee ee eee 


WWE AANW—S OU 
DD PRIOR mae ece ce oe 


*eeseee 
>rrr>,r 
AnMNnnnnnnn 


eee 
>Yr,Y 


DN Na Na Na es a se ee Bg eB eB Be eB i BR 


SEQ 0185 
/TEST # ERR PC PORT # REG ADR CONTENTS/ 
/TEST # ERR PC REG ADR PORT A PORT B/ 
/ SEIZE ERROR/<CR><LF> 
/TEST # ERR PC PORT # PORT # REG ADR GOOD BAD/ 
/TEST # ERR PC PORT # REG ADR GOOD BAD 
/ RELSNG ERROR/<CR><LF> 
/TEST # ERR PC PORT PORT # REG ADR GOOD BAD/ 
/TEST # ERR PC PORT # REG ADR CONTENTS/ 
/ SEIZE ERROR/<CR><LF> 
/TEST # ERR PC PORT # PORT # REG ADR CONTENTS/ 
/ RELSNG SEIZE/<CR><LF> 
/TEST # ERR PC PORT # PORT #/ 
SEIZE/<CR><LF> 
/TEST # ERR PC PORT # REG ADR CONTENTS/ 
RELSNG/<CR><LF> 
/TEST # ERR PC PORT @#/ 
RELSNG RQSTNG/<CR><LF> 
/TEST # ERR PC PORT # PORT #/ 
/TEST # ERR PC PORT #/ 
/TEST # ERR PC/ 
RELSNG ERROR/<CR><LF> 
/TEST # ERR PC PORT # PORT &#/ 
/ PORT A PORT B/<CR><LF> 
/TEST # ERR PC RMDS RMDS/ 
/TEST # ERR PC PORT # TIMEOUT VALUE (IN MS)/ 
/SRMADR/ 


/TEST # ERR PC PORT A PORT B/ 
/ EXPCTD RECEVD EXPECTD RECEVD/ 


TSTNUM, SERRPC,PTNBR, SBDADR, SBDDAT 0 
TSTNUM, SERRPC . SBDADR, $GDDAT , SBDDAT 0 
TSTNUM, SERRPC,PTNBR, $BDADR, $GDDAT , $BDDAT,0 
TSTNUM, SERRPC..OPPRT .SBDADR.$BDDAT .0 
TSTNUM, SERRPC,SEIZPT,PTNBR.$BDADR.SGDDAT, $BDDAT.O 
TSTNUM, SERRPC, SEIZPT.PTNBR.$BDADR.S$BDDAT _0 
TSTNUM, SERRPC,SEIZPT .PTNBR.O 

TSTNUM, SERRPC..SEIZPT .$BDADR, $BDDAT,0 
TSTNUM, SERRPC, SEIZPT,OPPRT 0 

TSTNUM, SERRPC..SEIZPT_0 

TSTNUM, SERRPC .PTNBR,O 

TSTNUM, SERRPC .0 

TSTNUM, SERRPC .$TMP2,$TMP3,0 
TSTNUM, SERRPC ,OPPRT .SEIZPT,O 

TSTNUM, SERRPC, SEIZPT, TIME,0 


SRMADR ,0 
TSTNUM,SERRPC,STMPO,STMP1,S$TMP2,S$TMP3,0 
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CONSTANTS, TABLES, ETC SEQ 0187 


} .SBTTL CONSTANTS, TABLES, ETC 

? TABLE OF TEST STARTING ADDRESSES 

5 100736 003376 TSTADR: .WORD TST1 zSTARTING ADDRESS OF TEST 1 

8 100740 004750 WORD TST2 :STARTING ADDRESS OF TEST 2 
100742 006316 WORD TST3 :STARTING ADDRESS OF TEST 3 
100744 007664 WORD TST4 :STARTING ADDRESS OF TEST 4 
100746 011014 WORD TST5 STARTING ADDRESS OF TEST 5 
100750 012144 WORD TST6 STARTING ADDRESS OF TEST 6 
100752 012616 WORD TST7 :STARTING ADDRESS OF TEST 7 
100754 013270 .WORD T1ST10 STARTING ADDRESS OF TEST 10 
100756 014534 WORD TST11 :STARTING ADDRESS OF TEST 11 
100760 016000 WORD TST12 STARTING ADDRESS OF TEST 12 
100762 017120 WORD TST13 :STARTING ADDRESS OF TEST 13 
100764 020240 WORD TST14 STARTING ADDRESS OF TEST 14 
100766 021640 WORD TST15 STARTING ADDRESS OF TEST 15 
100770 023240 .WORD TST16 :STARTING ADDRESS OF TEST 16 
100772 024164 WORD TST17 STARTING ADDRESS OF TEST 17 
100774 025110 .WORD 18120 sSTARTING ADDRESS OF TEST 20 
100776 026156 WORD TST21 sSTARTING ADDRESS OF TEST 21 
101000 027224 WORD TS122 :STARTING ADDRESS OF TEST 22 
101002 031300 WORD 1S123 :STARTING ADDRESS OF TEST 23 
101004 032024 WORD TS124 STARTING ADDRESS OF TEST 24 

11 101006 033220 .WORD TS125 ;STARTING ADDRESS OF TEST 25 
101010 034414 .WORD TS126 STARTING ADDRESS OF TEST 26 
101012 036110 WORD 1S127 STARTING ADDRESS OF TEST 27 
101014 037604 .WORD 15130 STARTING ADDRESS OF TEST 30 
101016 041300 WORD 1S131 STARTING ADDRESS OF TEST 31 
101920 042774 WORD 15132 STARTING ADDRESS OF TEST 32 
101022 044252 WORD 15133 :STARTING ADDRESS OF TEST 33 
101024 045376 WORD TS134 STARTING ADDRESS OF TEST 34 
101026 046274 WORD 15135 :STARTING ADDRESS OF TEST 35 
101030 047172 WORD 15136 STARTING ADDRESS OF TEST 36 

14 101032 050170 WORD S137 STARTING ADDRESS OF TEST 37 
101034 051166 WORD TST40 :STARTING ADDRESS OF TEST 40 
101036 053152 WORD 15141 STARTING ADDRESS OF TEST 41 
101040 055136 WORD TST42 :STARTING ADDRESS OF TEST 42 
101042 056412 WORD 15143 :STARTING ADDRESS OF TEST 43 
101044 057666 WORD TST44 STARTING ADDRESS OF TEST 44 
101046 060516 WORD TST45 STARTING ADDRESS OF TEST 45 

- 101050 061546 WORD TS146 :STARTING ADDRESS OF TEST 46 

1 ;ATTENTION BIT TABLE 

18 101052 001 ATABIT: .BYTE 1 sATTENTION BIT FOR DRIVE 0 

19, 101053 002 BYTE 2 sATTENTION BIT FOR DRIVE 1 

20 101054 004 BYTE 4 sATTENTION BIT FOR DRIVE 2 

21 101055 010 .BYTE 10 sATTENTION BIT FOR DRIVE 3 

22 101056 020 -BYTE 20 ATTENTION BIT FOR DRIVE 4 

23 101057 040 BYTE 4 ATTENTION BIT FOR DRIVE 5 

24 101060 100 .BYTE 100 :ATTENTION BIT FOR DRIVE 6 

$5 101061 200 .BYTE 200 :ATTENTION BIT FOR DRIVE 7 

6 

33 101062 000052 MAXTIN: .WORD 52 ;MAXIMUM TEST NUMBER 

31 000200 . END 200 
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SYMBOL TABLE SEQ 0188 
ADDRIS 072012 CRLF = 000200 D146 100616 EMS7 076135 OPPRT 001244 
ADRERR 071601 DCK = 100000 DT5 100440 EM6 072322 OR = 000200 
AOE = 001000 DDISP = 177570 D154 100630 EM60 076176 PAR = 000010 
ASR} 001236 100676 D155 100642 EM61 076242 PAT = 000020 
A = 100000 DF 31 100720 D156 100654 EM62 076274 PGE = 002000 
ATABIT 101052 DF 36 100724 D157 10066 EM63 076342 PGM = 001000 
ATO = =_: 000001 DF42 100727 DT6 100456 EM64 076404 PIP = 020000 
AT1 == 000002 DFS 100703 DT? 100472 EM65 076453 PIRQ = 177772 
AT2 = 000004 DF55 100731 DVA = 004000 EM? 072422 PIRQVE= 000240 
ATS) = = 000010 DF56 100735 DvC = 000200 ENTERA 071552 PORTA 001224 
ATS = 000020 DF? 100711 ECH = 000100 ERR = 040000 PORTA] 071623 
ATS == 000040 DH1 076520 C1 = 004000 ERROR = 104000 PORTB 001226 
AT6 = =_ 000100 DH11 077162 EMTVEC= 000030 ERRVEC= 000004 PORTBI 071650 
AT? = =: 000200 DH13 077233 M1 072076 EXEC 003110 PORTC 001230 
Al6é = =_: 000400 DH22 077353 EM10 072503 FER = 000020 PRO = 000000 
Al7 == 001000 DH23 077451 EM11 072533 FMT16 = 010000 PR1 = 000040 
BADNO 071753 DH26 077551 EM12 072617 FO = 000002 PR2 = 000100 
BADTMO 002160 DH3 076571 EM13 072667 FI = 000004 PR3 == 000140 
BA] = 000010 DH31 077630 EM14 072754 Fe = 000010 PR4 = 000200 
BITO = 000001 DH36 077727 EM15 073017 F3 = 000020 PRS = 000240 
B1T00 = 000001 DH4 076640 EM16 073076 F4 = 000040 PR6 = 000300 
B1T01 = 000002 DH42 077756 EM17 073151 GO = 000001 PR? == 000340 
B1T02 = 000004 DH44 077775 EM2 072117 GTSWR = 104406 PS = 177776 
B1T03 = 000010 DH46 100073 EM20 073230 HCE = 000200 PSEL = 002000 
B1T04 = 000020 DHS 076763 EM21 073310 HCI = 002000 PSW == 177776 
B1T05 = 000040 DH55 100170 EM22 073363 HCRC = 000400 PTNBR 001240 
B1T06 = 000100 DH56 100246 EM23 073450 HT = 000011 PWRVEC= 000024 
B1107 = 000200 DH57 100255 EM24 073516 IAE = 002000 RDCHR = 104410 
_ B1T08 = 000400 DH? 077037 EM25 073575 IE = 000100 ROLIN = 104411 
—B1T09 = 001000 DISPLA 001142 EM26 073640 ILF == 000001 RDOCT = 104412 
BIT! = 000002 DISPRE 000174 EM27 073725 ILR = 000002 RDY = 000200 
B1T10 = 002000 DLT = 100000 EM 072141 1OTVEC= 000020 RELERR 001254 
B1T11 = 004000 DMD = 000001 EM30 074003 = 000100 RELOK = 000001 
B1T12 = 010000 DPE = 000010 EM31 074100 vC = 010000 RESREG= 104414 
B1T13 = 020000 DPR = 000400 EM32 074155 KYBCTL 001300 RESVEC= 000010 
| BIT14 = 040000 DRQ = = 004000 EM33 074226 LBC = =_: 002000 RMAS = 000016 
—B1T15 = 100000 DRY = 000200 EM34 074330 LBT = 002000 RMBA = 000004 
'BIT2 = 000004 DSWR = 177570 EM35 074433 LF = 000012 RMCS1 = 000000 
~B1T3 = 000010 = 010000 EM36 074512 LSC = 004000 RMCS2 = 000010 
BI1T4 = 000020 D100 = 000001 EM37 074564 MAXTN 101062 RMDA = 000006 
BITS = 000040 D101 = 000002 EM4 072223 MCPE = 020000 RMDB = 000022 
~BIT6 = 000100 D102 = 000004 EM40 074632 MDPE = 000400 RMDC = 000034 
BIT? = 000200 D103 = 000010 EM41 074707 MOH = 020000 RMDS = 000012 
BI1T8 = 000400 D104 = 000020 EM42 074751 MOL = 010000 RMDT = 000026 
BIT9 = 001000 D105 = 000040 EM43 075037 MUR = 001000 RMEC1 = 000044 
BPTVEC= 000014 D106 = 000100 EM44 075114 MXF == 001000 RMEC2 = 000046 
CHANGE 003262 D107 = 000200 EM45 075171 NBA = 100000 RMER1 = 000014 
CHGADR 001302 D108 = 000400 EM46 075250 NED = 010000 RMER2 = 000042 
CKCLK 066124 DT1 100410 EM47 075317 NEM = 004000 RMLA = 000020 
CKCLK1 066174 D113 100512 M5 072254 NOATA = 000001 RMMR1 = 000024 
CKCLK2 066236 DT 100530 EM50 075405 NOCLOC 071675 RMMR2 = 000040 
CKCLK3 066246 D123 100542 EM51 075467 NOSEIZ 001252 RMOF = 000032 
CKERR 001250 DT3 100424 EM52 075556 NTRH11 072047 RMR = 000004 
CKSWR = 104407 D131 100556 EM53 075651 OFD = 000200 RMSN = 000030 
CLOCK 066256 D136 100570 EM54 075732 OM = 000001 RMwC == 000002 
CLR = 000040 D137 100600 EM55 076025 OPE = 020000 RQA = 100000 
CR = 000015 D142 100610 EMS6 076072 OP! = 020000 RQB = =_- 040000 
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SYMBOL TABL SEQ 0189 


RQSTA 001232 TEST16 023276 TST14 020240 $BDADR 001122 $QUES 001206 
RQSTB 001234 TESTI? 024222 TST15 = 021640 $SBDDAT 001126 SRDCHR 070640 
6 =%000006 TEST2 005006 TST16 =©023240 $BELL 001202 $RDLIN 070730 
R7 =%000007 TEST20 025146 TST17 = 024164 SCHARC 067406 $RDOCT 071230 
AVREG= 104413 TEST21 026214 TST2 004750 SCKSWR 079336 $RDSZ = 000007 
C = 100000 TEST22 027262 TST20 025110 SCMTAG 001100 $REGAD 001160 
SCOPE = 000004 TEST23 031336 TST21 026156 $CM1 = 000001 $REGO 001162 
SCO. = =_: 900100 TEST24 032062 TST22 027224 $CM2 = 000002 SRESRE 071426 
Sci = _- 000200 TEST25 033256 TST23 = 031300 $CM3 = 000001 $RMADR 001304 
SsC2 = 000400 TEST26 034452 TST24 032024 $CM4 = 000005 SRMVEC 001306 
$¢3. = 001000 TEST27 036146 TST25 033220 SCNTLG 071200 $RTNAD 066116 
C4 == 002000 TESTS 006354 TST26 = 0034414 SCNTLU 071173 S$SAVRE 071370 
SELZPT 001242 TEST3O 037642 TST27 =—036110 $CRLF 001207 $SCOPE 066360 
SKI = 100000 TEST31 041336 TST3 006316 $DBLK 070054 $SETUP= 000127 
STACK = 001100 TEST32 043032 TST30 037604 SDOAGN 066114 $STUP = 177777 
START 002240 TEST33 044310 TST31 =—041300 $SDTBL 070044 $SVLAD 066546 
START! 002246 TEST34 045434 TST32 = 042774 SENDAD 066104 $SVPC = 00021 
START2 002254 TEST35 046332 TST33 = 044252 SENDCT 065750 $SWR = 16600 
STKLMT= 177774 TEST36 047230 TST34 045376 SENULL 066120 $SWRMK= 000000 
WR 001140 TEST37 050226 TST35 = 046274 $E0P 065704 STIMES 001176 
SWREG 000176 TEST4 007722 TST36 47172 SEOPCT 065742 $TKB 001146 
SwO = 000001 TEST40 051224 TST37 =050170 SERFLG 001103 $TKCNT 070064 
SwOO = 000001 TEST41 053210 TST4 007664 SERMAX 001115 $TKINT 070074 
SwO1 = 000002 TEST42 055174 TST40 §=©051166 SERROR 066612 $TKQEN= 070073 
SwO2 = 000004 TEST43 056450 TST41 = 053152 SERRPC 001116 $TKQIN 070066 
SwO3 = 000010 TEST44 057724 TST42 =©055136 SERRTB 001310 $TKQO0U 070070 
$wO4 = 000020 TEST45 060554 TST43 = 056412 SERRTY 066744 $TKQSR 070072 
SwO5 = 000040 TEST46 061404 TST44 057666 SERTTL 001112 $TKS 001144 
S$wO6 = 000100 TEST47 062270 TST45 060516 SESCAP 001200 STKSRV 070144 
SwO7 = 009200 TESTS 011052 TST46 = 061346 $FILLC 001156 $TMPO 3 =001164 
SwO8 = 009400 TEST50 063154 TST47 = 062232 $FILLS 001155 $IMP1 001166 
SwO9 = 00100 TESTS1 064446 TST5 011014 $GDADR 001120 $TMP2 001170 
Swi = 000002 TEST6 «012202 TST50 §=—.063116 $GDDAT 001124 $TMP3 001172 
Sw10 = 002000 TEST? 012654 TST50B 064166 $GET42 066074 STMP4 001174 
SWw11 = 004000 TIME 001256 TST51_ = 064410 $GTSWR 070426 $™N = 000053 
SW12 = 010000 TIMEA 001262 TST51B 065460 $HD = 000000 $TPB 001152 
SW13 = 020000 TIMEAM 001266 TST52 065702 $HIOCT 071366 STPFLG 001157 
SW14 = 040000 TIMEAP 001264 TST6 012144 $SICNT 001104 TPS 001150 
Sw15 = 100000 TIMEB 001270 TST? 012616 SINTAG 001135 STRAP 071464 
SWw2 = 000004 TIMEBM 001274 TYPDS = 104405 SITEMB 001114 STRAP2 071506 
SWw3 = = 000010 TIMEBP 001272 TYPE = 104401 $LF 001210 $TRP = 000015 
SW4 == 000020 TIMES 001276 TYPOC = 104402 $LKCSB 001214 $TRPAD 071520 
SWS = =_ 000040 TKVEC = 000060 TYPON = 104404 $LKCSR 001212 STSTNM 001102 
SW6 == 000100 TOLER 066320 TYPOS = 104403 $LKS 001220 STTYIN 071164 
SW? == 000200 TPVEC = 000064 UNS = 040000 SLLVEC 001222 STYPDS 067640 
SWB = =_ 000400 TRAPVE= 000034 UPE = 020000 $LPADR 001106 $TYPE 067120 
Sw9 = 001000 RE = 040000 = 000001 $LPERR 001110 STYPEC 067270 
TAP = 040000 TRIVEC= 000014 Ul = 000002 $LPVEC 001216 STYPEX 067410 
TBITVE= 000014 TSTADR 100736 u3 = 000004 SMNEW 071216 STYPOC 067436 
TESTNO 071733 TSTERR 072001 vv = 000100 $MSWR = =071205 STYPON 067452 
TEST! 003434 TSTNUM 001246 VVSET = 000001 SMXCNT 066610 $STYPOS 067412 
TESTIO 013326 TST1 003376 WATCH 001260 $NULL_ 001154 $XOFF = 000023 
TEST11 014572 TSTIAA 003372 WCE = 040000 SNWIST= 000000 $XON = 000021 
TESTI2 016036 TST10 §=—.013270 WCF = 000040 SOCNT 067634 SXTSTR 066372 
TESTI3) 017156 TST11 = 9.14534 WLE = 904000 SOMODE 067636 $$GET4= 000000 
TESTI4 020276 TST12 016000 WRL_ = 004000 $OVER 066574 SOFILL 067635 
TESTIS 021676 TST13)— 017120 $AUTOB 001134 $PASS 001100 
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SYMBOL TABLE 


- ABS. 101064 000 
000000 001 
ERRORS DETECTED: 0 
VIRTUAL MEMORY USED: 52712 WORDS ( - PAGES) 
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 CZRMRAO 8M05/3/2 DU POR TST 1 


LATMN ONNONDO ~KAINE OD COON ONS SND ODM ODUNOOMOOWO 
DBVUSMA OOownws OK FOF OVUNON OVA AR ANE MNOR-MOOWOR O 
Mom «eo TORAVAE — MIM) FTW OO ORF COCOA OO +8 et tere V VA ASO SB 
teoeest #teeenteet #eepecpeeceteitgctepet_seceeseeeepepresepeivepetes 
emcmccwnd acc cdaand @O GO GD GO GD 00 60 60 60 60 6D 60 00 60 0D 00 0D 00 00 0D 00 00 00 cD 00 a cD cD 00 
SONTMmN MON ONO NNR OF COON ONT SND ODM ODN OMWONoO 
ooomMmMnm DOoOwMrwWwO mg OF eh he Ah Ny we at Ste eerta ys he ae 
mor ta MORO AB —NMM TTIW OO OF-F-F DOOO -- eereV VA AGO: 

@#eoeees #eeoeee#etes #espeep_ececegceescteeepeeeepeprerpeeeeeeeeeeepees 
ecoccocm acac0cc00n @O GO GO 60 60 G0 6D 60 60 00 GD 00 G0 00 GD 6D GD 00 G0 00 00 00 00 00 00 a0 cD 00 00 
NNTOO Mmounvoworn AUN OF OOWVNO ONT STNMN ODM ODNADMDONO 
TOoOornu DOOMWFWO NO FT DOFOUNONDOAORF NE MINOR MOOWOrR O 
MORAA MOMDA AGB —NUMM ST TWN OO OFF DODO O terseVVAAGS-SRE 
#eeee #eeoeeeete #esep_ec_ectepetpteeeeceeereeeecepeepeeeb eee ts 
eococococD )§8a0c0000D000000 @O GO GD 00 0D 6D G0 6D G0 0D GD GD 60 G0 G0 60 GD GD GD 0D 00 00 00 G0 00 G0 G0 00 cD 
NNNDODO COOWVWWOOMO ANU ODP OOMUMONST FIND OMODNUAOmMac wr 
AOowrnwm OMOCOCCO NA FD TF ONUNOUNODOAASME AMMMORMBOWOoOr oO 
NORA A MME D AB H—NMIM TT TIN OO ORFF. DWODODO e*eV VA ACO 
oeeveust #evpeupes t#teeepetpeteprepreecepeprperpeepeeeepeeeees 
eococococm 9000000000000 GO GO GO GO GO GD 60 G0 6D 60 G0 60 60 G0 GD GD G0 00 GD 60 G0 G0 G0 G0 60 600 G0 cD cD 
NNVNOD COOWNDWDOMO NNN OF OOWUMNON ST SFTW ODMODUC ODMDaDowrw 
AOoOnunwu OMNOGVoocnsd NA FT OT OUNONOOAACUE ANF MOR-MDOWO-— om 
NORA A MMOD AG —NMM TTIW OO OFR-F CDC CAO «+ sete VW VA AOE: 
#e0eeees #0eeebeeeses #eseetept_tetrtseetepeeeeceseeee ee ete ee 6 6 6 6 8 
cococococmo ) 000000000000 GO G00 GO 00 00 GD 00 60 0D G0 U0 6D 6D G0 6D 6D G0 00 00 00 00 00 cd co cD cD cD cD 
ooNmwom wvoOomonm£ NON OD OOUNNOVNN ST FTNDODMOUGA DMBDdowr 
KNOND TFVUOKNOO DM FOOT OANNOCUOOTA CR ANR MME MDOWO-— oO 
NNROA MNOD:Ac — UPI wT TUN OO ORR. BR. COCO COO DO 88 te eV VA AO OD 
#eneoes #oespenpoees #espupepevueuescteseevpreeepepepeepepevpetpepeopes 
eococococO a0c0c000000000 DO 00 60 00 G0 00 00 G0 00 60 GO 0D GO 00 GD G0 G0 00 GD 00 00 00 00 GO cD cd cD cD cD 
OUOUNDOM VOONOoOMT, COMO ODO OCONNOWN IT FTNDODMONGOMBDOON 
rNOAO WN ORNOO WM FOOT TUNONUNOW A OUR AWE MNF MDONOK— Oo 
NWNEDWA MMOD :Ac NOUN) FF TWN OO ORF. DCO COA O te te eV VA AO OO 
#eoues #eeenupos #eteceeveeecepvreepupepeeeereecepepeescee bees ss 
eocococomD aco coOamnOawnw GO 00 GO 60 60 G0 GD 00 G0 00 GD GD 60 6D GD GD GD G0 cD 00 00 cD cD 00 GO G0 cD a0 0D 


rOODdM wWOooOsroear ONVNOSCORONNOUNST FTND ODM OMNDDOOON 
oooceco couonnor NM TOOT QNONMNOUA CUR ANE MMAE- UDONOK Oo 
—STODA WTOWD:: le MUPMIM oF AF TUN OO ORFF CODD COA O «+ et ee VV HAG Oe: 
#eeees #reeteeeoees #rpeetepceceteupeteeeveeeeeee eee e te 6 6 6 6 6 8 
eocococo0p adca0c00c0000000 DO GO GO 60 G0 00 60 GD G0 00 GD G0 Gf 6D GD G0 GD 60 GD 60 G0 GD 60 GD GO 0D GO a0 cO 


rAOMNDOUAOwMar ODNOCOC OD ONNONN ST FTND ODM ONMVNDDDOOC 
OO OF OF-AOMCMOR Or FOOT OQDNONUNNOVUEOAR SWF MME UDOONO— Oo 
—TOO li evs Om: lce TUM oF AT TUN OO OR-P-P-B- COGCD AO #8 ee eV VV HA GOO 
oerpreepeeeepeuss #envpreeceeoeoeececeeoeepeeeepeeee eee este 
GO GO GO G0 GD 60 GD GOD GD 60 00 G0 G0 @O 6D GD GD GD GD GD GD GD GD GD GD 6D GO cD 0D 60 G0 60 G0 G0 60 G0 G00 G0 G0 GO G0 cD 
~AOMDOWA OTM Oc OMOCO OR OMUNOWUN FT FOND ODM ODWVUDWOMOW NU 
WO OWP. DKR.H% OMOMO— TRA OO ST OKUONNONAASR ANA MNAONUDOOCO-—o 
— TOO Vv tus Or + Ve- TN ST ATTN OO OR-RRR. COCOA ++ te eV VV HAG Oe 
#0eteeeeteetebebsbes #rpete_svpreepeespreescoucepceupuueeeceee eeu 6 60 6 8 
@0 60 00 60 60 G0 00 00 60 G0 cD cD cD OD GO GD GO G0 GO 6D GD 6D GO GD 6D GD 0D 6D GD GD 6D 60 GD 0D cD. GD 6c cd GD cD GD cD 
re OCOsOOOwoOOsrnmoend COMOCOC OD ONMNOWN ST FNDW ODM OC@MOWC wM-acadcu 
DTN TR FNM O— —-KrA OOT OUONNONVNAAR AONE MNOCUMOON— oo 
—T OO V tvs Or + Ve: FNM SF ST TN OO ORR COCA 8 te eV VY HAAS 
#eseceteteeseee eb tt #etetseetpeeeeeceeceoeeeeeeeeeeeopeess#*# 
@O 00 00 00 60 G0 a0 60 G0 G0 cD 00 cD @O 00 6D GD 0 6D 60 00 GD G0 6D 6D 60 00 60 00 cD 60 6D G0 6D cD cd cb co cD cD GD cD 
BR ODNATNUAOOMNTDOOO COMOR OP ONNOWNs TNDW ODM ODWUC wamaadarn 
OTNVNOWSTR FSNUOKRMOR LR ODO TF OVNONNONMAOAR ANA MNONMMOOV 
—TOrv ew ORO Ve: et MVUUMM TF TINO O OR... COCOA O ee eeV V HAAG: 
sottesteteteeteceeeeeest erpeeresepuveeepeepeeceeegeegceeecee ee eepese ees 
@D 60 G0 GO G0 60 G0 60 GD G0 G0 00 G0 cD OD GO GO a0 GD GD GD GD GD GD G0 GD GD GD GD GD GD 60 GD GO GD 00 GO GD GD cD co GD GD 
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oeeeeecee epee ess oreetprvperpreeeeeceegcueeeeee BGeeceeee ee 
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SEQ 0220 


NOS RANK SO DOWN SAN FT FAD DOM DONG OMOOR o on ne 
N Nn NT N onNnoo INVANN ON ST TOO 
awe SCRARZISRASSSLLCSS SNE MAOUMOONOR ~ SR £ ASS3SL2SSS 
eee eter @ ore Oe eR ee ere ee ee rurue the eee ee ees 
1s 
WDD DODDDWDD DADA D WDD DOO ODDO WNDODODOOOOOODD fo oD oT se]. of. o]. oJ. oJ. oT J. oJ. oT. oJ. of. oJ. 0] 
NOD RANK OO DOAN DUNE SND OOM DONO WMO = 
~ mor w vTww ONGC OS OONM ONS STCD 
Baws ae te th Ny tt tte at tee ate ae wR OS Sey vb. She 
Sx t K—VNMMTTNMOOOR PF DOOOO **VVN AAG SMF TNN OOO OOD 
‘ees #eeeeeeeceeeeseeseseeseeceeeeeeeeeuee #eepeescecesceectete ¢eees es 
WDD DODDODODD ADD WOOD WOD WD WOOD OOO DDD OO OODOOOD GO 6D 60 GO 6D GD 60 a0 a0 00 a0 @ oO aD a 
& eee eee eee eevee neeezeeeneeeeeeeeneae ao © 
NOOO Hur OF OCOWMOCFIN ST TNO OOM ODBDWVC OMWorw ONO OF DOWN ONS TOD 
DND NO TOST OUNOVOOVNG WR AHF MNMOCUMBDOWNCK pa Se nan Ph Ny at 
SOx K—VUMIMTTOMNOO ORR DWMDMDOO eseVV VA AGO: NM FTW OO OK COD 
ee #eeeseeseseeepeeeeeeeeeseeeee ee eeeues #*eeecteeepte eee te @ 6 
DDD DODDWDDWD DDD DW DW OD OVD ODD ODDO OOOWODOWODOaD 60 DD DDD DOOD Ow Daw 
see eeeee eee ee eee eee ezeeneeeeeeeuneneeneu eee « o 
NOD HUE OF OOM ONIN ST SND OOM ODBC OMDO@rw ~-NVOO OC OMM ONT Tom 
ore, NOTOTONMMON COONS FR AMF MMORMDBOWO—oO Oo OOF ONONOCOCSro 
Cent —VMIMTTMOMOO OFF. ODDO C -- te"eV VA AO Oe H— UM TTT OO OFF. OD 
ee seeececeeseeeeeeeseeseeseeeeeeecsemhlUchP hte) lt #eeetepeteteteteeseees 
WD 600000 WO DW WWW WWW WW WWW DW OO WOO OOOO @ GO 60 60 60 00 00 00 G0 G0 00 cD aD ao aD 
eee ee eee e ee eeeeneeeeeeneeee eee enenenene ee B 
BSH VOWVNOC OS OOWMONN ST TND ODM ODBC DMWDo@wr ~ VOCS OP OWM ONT IO@D 
oT_ NE FT OST ONMONNONGA CF. AMF MMORMDOWO-— O&O oe OOsT ONMNOVOOC Oro 
Cnet K—WMMTTMMOOOF-F.. OOOO :- tereV VA AO Oe —VUM TTT OO OFF. DOD 
a) s#eeeseececeeceeeeeeceseeeeseeeeeepgpeease #*ee_eteeetee tee ees 
GGO0D 9000000000 0000 00D WWW DW DWDWDWDW DD DODO WODOOaaa @O GD GD GD 60 60 GD G0 G0 G0 GD GD aD aD aD 
see eee eevee e eee eeeeen eee uneeneeneeeneenenane ee a 
OAH VOCWOC OSD OONMOUN ST FNDODM ODN DMDOoO@Oune ~VOOCO OO ONMON ST Io@m 
ore. ONE TF OST OF. NONUNONAAR AMF MNMORMBDOWO--OCO@Orw Oo COST DHNONUMOO OF 
ent K—VMIM TT NOOO. ODOC -- te*eV VA AO-O-O- Od VMN TT OO OFF. DOD 
eee #eeeeseesepeeeeeeeeeeeeeeeeeeeeepeeeee #eetet@estetete_teeee ees 
GOG00D 600000000000 60 2000 29 WD 60 WD DW DW DW WW DW WO DWDW WW Wa waa @ 6 60 60 60 GD GD DDO DOOD 
see eee eee ee eee eeeeeeeeneeeeeenunenenanne & a 
Oona MVOMOC OSD OOMMOWN ST FND ODM OCB ODMWO@DVuo ~KVr SO Oowwmon ys rn@w 
ot NE TF OST OMUMONNMNOWNAAOR. OM MMOLMBOWO- CO OO TOT ONONUMOC Or. Oo 
ent K—VMIMT TMM OOOPrP-PLFR.. ODO -- e"eV VA AGO @ — VM FT OO OFF... OD 
‘ees s$eeespeeeseeeseeepeseepeeeeseeepeeeeeespese #eepevrpreepesec 6G 6b eet FS 
0000) 06.00 00000000 00 200 60 2 OO 00 00 GY) CO 60 60 20 CO 0D GG a aaa aa @O GO GD GD GD 6D GD cD GD 60 a uO aD aD aD 
see ee eee eee eee eee eeeneeeeeeeeneeeneenes es 
OOH VOMNC OS OONUMOWNT FSHNDODMOWDUVUDDDOODVUOCCOO w ~~ ODKOWMON TIO 
oT WE TF OST ONMONNOVNA ASR OM MMOP-UDONOC-- CO OTR & OSC TOT OMNMOWMOC Oro 
Cet K—VMMTTMMNOOOPr-P-f-F-DOODOO :- e'"*VV HN AGO Oat ww HK VMN ST TOO OP-F- DOW 
‘es seeeepespetspceteeueeeeeeeeeeeeeepeveuees t sree eceepeececeueepeene 
WDD DWODDDWDDDDDDDDDDADDADDDDOODWDAADADAADAOAOAOa aw @ oO 60 60 G0 60 co co ao co cD aD GO a a 
oe & eee eee ee eee eee eeeeeeeoee eee enue 
OAH VOVMOCOCOAFONMOS ONT FSNDODM ODNUVUDDDODOUNO ™N F-OUP- OP OWMMON IT IOOD 
oT N-TOOT QNOSMNONAALASMF-MMOL-UDOUMC-C O or OTD ONONMOOCO OF O&O 
@Cxstt —VUMMTTITNOOO Orr WDCC: teeeVV HAG Oem N HUMINT TODO OF-F-FB 
eae soeueesceececeesceteeeepsepeseteteepeeoeeeeeeeesns a #eeesceceepeeceeueeee 
ecOcD) 600000000000 60 6000 00 90 00 2 8 00 00 DD DW DMO DOODWaOaaand wo @ © 6060 a0 Oa Daw awaaaw 
eee ese eee eee eeneeeneee eee eeeeneenunezeaen & e © 
SOA VOUMOCOC OS ONMO ONT FNDODM ODWNVDOMO@N MN NRVC OS OWMOWN IT OO®@ 
oT _ NE TOOT QNONMN OMADPR. AMF MNMORUDOOCOC—K eS OOo OT OVOWMOWOFRO 
Cnt K—VUMM TT TNOOO OPP. DODO ere eeV VY HAO Oe N VK VMM TT TNOOOF-F.F. OD 
‘ee ¢$espeeseeeeeeeeeescs GGG eCeCeCeECeCceamcUmc FC eb 6 ‘ #eeteeecespesec te eeees 
coed 3 600000000000 0 0 00 00 0 00 20 D8 ND WW DOWD WOOD wOaw eo 000000000000 000000000000 000000 
sae eeeeeoeo ee eee ee eee eee eeee eee eeeneeeat a * 
OAR VOMOCOC OSD OMMNO ONT FND ODM ODUVNDOMODVOAAGAO WRONMO OE OF NHOMWNTO@ 
owe SA ds STARS SOSA SOOS eee kath oor wv Ov Or VNOWOK O&O 
Gxt KVM TTTNOOO OPA... OOOO se tereV VHAS OO BW WRK VOM Tre 2 OOF. OD 
i) oeseescececeeceeceeesesese#e@eeceeeeeeeeeeeeeeeees #eeeeecesepeeee eee 6 
@0000 3600000 00606060 6000 60 00 60 60 00 C0 GD GD GN GD DAO ADAG ADGA AA ADADDODO DODDODDOODDOOOOODODOD 
se ae ee ee eeeoee ee eee eeeeeeeeeeeeaeenanee a a ee 
NVVNOOMOMOCO ODF OAUMO ONT FND ODM ODWNG ODMODWVOoON Oo OMOWVOC OSC ONMMO ONY TSN 
pe yp pews pee he we ath te © as + tee te Sw ene y | ~~ KRM TOT OVONM ONO VF 
Ox LK VUIM TT TNOOO OP-F-F. ODOC -- sereV V HAAG @ ™N TT CTT? ‘-~@Oe@ 
#eeseeseeeceeceeeeceseseeeeseseseseeseeeeeepeeeenbe t #eetees im) v eee 
@O 60 GO G0 60 60 GD 60 6D GD GO GD 6D 6D 60 OD A GD GD GD GD GD GD GD 6D 0D GD. GD GD aD cD a a a aD a DBD DODDADDAODOODOOODOO®QO®H 
eee eee eee ee eee eeeeeee ee eee eeeeeeeene uae e ee 
NVOO—MVNGSO OSD OOM ONT FT TNDODM ONUNAADMDDVUONUNAAO ONMNOWOCOO ONMNOONY WK 
OB x Se PORTS SAAD OSRRROOOOS Cn OER Nea ne RI SASS SS~ Se 
LETT EE TLL OCT TE ETT EET TLL TR LATE ETEED VETTEL OL TERT 
@O GO 60 GO 60 60 GD GD 6D GD 6D GD GD 0D GO GD GD GD GD CO GD GD GOGO GD ED EDGED GD ED ED GOA ADGA DODOODOOOODOOOOOODND 
s« mMeeeeeeeeeeeeeeeeeeeeeeeeeeee eee ese Reeae & ca 
MVOC O- VOR. OF OONO SSI ACRROARLAG Sas ees ef ~ONC OO ONMmN Nex 
yy pp eee A EE AE SOUR AONL MARCUM , Yas; tye -~ ~~s FONMNONN ONO CVF. 
road awwh owe & hee aoe PBC OA ss te eoV VY HAAG <£<rnrre YIOCPSL ~~ oOo 
#etegpeeeeeigte #eeteceteceecepeeeeeeseeeeteseteepes et @ ‘6 #ee#es 
@O 20.00 60 ~7 0D GD GD GD 60 aD GD GD GD GD GD GD GD GD 00 GD GD GD GD GD GD GD 6D GD GD GD GD GD GD GD GD GD OD wy ~7 wr ~p DOCG aaa aaaaaa 


8-898+ 


8-898+ 


8-898+ 


8-956 


8-956 


8-956 


¢ 
8-956 


2 
8-956 


8-956 


8-956 


8-956 


8-956 


8-956 


8-956 
SEQ 0221 


SEQ 0222 


dD 2 
E S-17 


-01 11*APR=-B0 14:26:10 PAG 


MACRO v03 


CROSS REFERENCE TABLE (CREF v01-05 ) 


CZRMRAO RMOS/3/2 DU POR TST 1 


& 
DWDM OD womMnm-a 
KL MMNORMOOOW 
oo. . AAA 
ets 

eo 


te a 
DWDM ODlVV@WWrwWdoOow 
— PUNO VROONO— 
TF = . he . eR RaeGaa a 
ie! 
edeneoepenaoeneneoenao ow 


8-272 


DOM ODUVUVUDOMBDWOOwVOr 
WE MNOP-VUDOOWUO—f- OD 
DO ss seeeVV HAAG O-o- Bee 
#eeeprprespepeeceeeeuees 
@ 60 00 G0 60 200000000000 co aD aD aD aD 


8-a82 


ODOM O ODVODOMBDO®W 

ME MUMNMNONDSOONO — 

o° ” ‘eee ii eI . 
@o 


20M CoMNow 
I~ PUAN ON INO 
Se ; oe - ay 3 

Ps] 


8->03 
8->28 
8->28 
8-700« 
8-718 
8-792e 
8-a82 
B-AG9e 
8-159 
8-270 
270 
8-270 


bd o 
0mm Oo own DMD DODOVUVUAAOOO 
SN TRANS ® rnrnr 
SERRE OS ERE RRR RR cee ET 
bed edaneneoadadaden eo evened eo ene eben eo 


e ee a333 
Lammo NO SRRseoue Ss 
DN UNAS -MOONNS—-CO TODO rn. 
TF 5 ee tieereds ¢ewen 
WNODDNMDMDNDNDHMDDOHMwWOwDO 


Ne 
vue 


fii i 


8->03* B8->28* 8->28* 8->28* 
8-270 8-292 8-292 


8-270 


8-A09 8-A77 
SEQ 0223 


SEQ 0224 


, ss 
“APR=80 14:26:10 PAGE S-18 


MACRO v03.01 11 


| CROSS REFERENCE TABLE (CREF v01-05 ) 


— CZRMRAO_RMOS/3/2 DU POR TST 1 


oO 
_ 
$ 
oO 
va) 
i 
Oo 
“wh 
4 
oO 
wn 
4 
oOo 
‘ 
oOo 
7 
oO 
1 
oO 
[- @] 
~ 
T 
co 
oOo oO 
ms _ 
‘ fl 
o oOo 
* 
~N _— 
‘ 3 
o oOo 
* 
~~ © 
™~N _— 
1 ’ 
ao oOo 
= 
RRBRBRBZBZBZBVBVBVVBVBVTEBVTBVEVEAVEVT_VT_sVZT=sZV=s 
Ae — Oe MO TF — TOR ODMNOWOOO + 
vr Oo MYOOX SFR CUM DODO TFOAOWROOWN 
N —TTTNMNOOONOF KR. DDODOONUO 
4 f #teepeepepereeeeeeee ee ee et 
ao @ GO GO 60 60 G0 60 6D 6D GD 0D 6D 6D GO 6D GD GD GD 6D GD cD GD 
RRR RBRZ RBBB EE 
Hen loleleleleleleleleal =) a 7 Ae —- OK MO TF — FOO ODOMOWVOCOO + 
reo FP EP FP OP FP OO ~ row MOA TRUM DCODMUMO TOUR OOW 
——— oooooouowuovn - NeKN —TTTNMNOOOWVORKR. DDDOOO UNS -:- 
ee #eteteen+eeee # ee #etetepepeteueceetepeeb Gee eb be 6 0 8 
cO00 00 vwwvwvwvyvwywvwsess @ ood @O GO 0 60 6D 60 GG 6D 60 GD 60 6D GD 6D 60 6D GD 6D G0 cD aD 
- 
ke RRBBZBZBZBZBRBZBZBZBRBZEEB za 
FTO DOOCOCCOOCOCOCOCCOCOCOOCOOCOOOCOOCOCOOCOOCSCOOSoCSO Fb pe the the pte Sat be eh Neg | 
DOD KK — BOAM HK _ MVNO TK OM OO ~ abieoc aA~own 
TEEPE PTE PTT EP TERETE PETE PPT EPP PT ETT PETTITTE PTET ETT ETE TS TG 
SFI OS TITTIES TTT TTI TNO TT DDD DODDDODODODOWOWac, wae 
- 

Min ~4 Ww OF NMTNHOr OF- NM sNOrR O- 
at = 3 SO NINN NINN 
Saanci Sses2zs3ss33s onKrNMmMwTN Ce 
<aawOoO000co SSSsasaaeaBraaesaaee ZA NNNMNNMNVMNNMNVMMNNMNMNNMNNNNNYNYN 
oo — BBS BST SST TSFBBSBBIIBIIIIIIIIF 0339S Www 
YANNMNAAANANAVAANVWANVANAANAAAAHAANAAADA Bere KwrK KKK KKK KKK KK RK ee eee 








| TEST32 «B=: 72 8-:72 8-:720 


SEQ 0225 


2 


H 
~APR=80 14:26:10 PAGE S=-19 


MACRO V03.01 11 


_ CZRMRAO RMOS/3/2 DU POR TST 1 


SEQ 0226 


| CROSS REFERENCE TABLE (CREF v01-05 ) 


8-360" 8-700" 8-718" 8-772 8-272" 8-?72¢ 


8-342* 


8-A80 


8-A80 





S 
EQ 0227 


ot --—— 


a 


SEQ 0228 


2 


MACRO V03.01 11-APR=80 14:26:10 PAGE S=20 


CROSS REFERENCE TABLE (CREF v01-05 ) 


J 


| CZRMRAO RMO5/3/2_ DU POR TST 1 


~ NOONAN TS ODOMONACR oO 
al o o& TFTONMUNNNOCONMGrRwOy 
wv —-o- MTOM DOO st AAC EMM SF 
' one sree vpereuegcuevpepebe 
inal ooo GO 00 5D GD GD 0D 6D a0 G0 GD G0 60 aD cD aD cD 
-_ -— 

oO NOONAN ST ODODMOWO Cr oO 
N So oOo TOMNNOSNHNOOCOVNGRCOOsS 
wr a MTORR O +s hh AAO UMS 
' see sree upupepupecespevpere 
~ ooo OD 00 0D 60 0D G0 GD GD 00 00 G0 00 00 00 cD cD 
-_- = ee 

al NM OMT ODOODMOVO Cr oO 
- Oo oO TOUNNOANNOOUNGAKROO+ 
wr —OoO-— MMI ORO HAAS OU SS 
i ‘ee e#oepreueepeepueoeuevperee 
~ ooo GO GO 00 GD G0 00 0D GD 00 6D GD 0D 0D aD 00 cD 
- = = 

NANT OOCDOMAONa Cr Oo 
Oo o o TOODNOAMNMDOOCURK OOO. 
® —F oo-— MMTORRA ss VA AO EMS 
4 eee oeerpeupvpeepeceueeeepeeses 
nal ooo 0 GD 00 00 00 6D 00 G0 00 00 0D 00 00 cD aD 00 
- -- 
R 
NANT DO ODMAOUMO TUN Oo 
o - So TOOVNOAANDWOCUR TO OF 
a) oo MM TORR 0O VA AG ous 
‘ ee eroerepuecuepoeepeeeeessy 
a ooo @O GO 00 6D GO 6D 00 cD 00 60 GD GD GD 60 GD 0D 
- - = 
NOAVOSTDODMAOUAUOCO 
co o oOo HOODOO DAANDWOCR +O Or 
na) ~ oO MMT OORCO + VAAC- EMS 
4 eee spore eepeeepeeeeeens 
a) ooo 0 GD GO 00 6D GD 0D 6D 00 GD GD G0 00 G0 cD 0D 
- n-o 
NOAKVOSTOMAEOMODAUCO 
~ NU Oo HODCOVOAMMOWV- raOoo 
~~ oo NUM TT OORO + VA AG EMS 
1 ‘oe eeepeepupeoegceeeeeeesn 
~~ ooo 0 GD 60 6D GD GD 0D G0 GD 0D GD cd cD co GD GO 
- - = 
NOANO-FOMEMOADACOSC 
oO - © OOOO OOOMMoOWe vr OO 
~~» Wo UM ~TOOr- ew VA AG aes 
a ene porteeepuoueuepeeueeees 
~~ ooo @O GO G0 6D a0 60 aD 60 00 00 00 00 00 cD G0 cD 
- -e- 
RR MOONOSMNMAEAMDBONCOCO 
wn co omm HOSFOOPRMMOWOOF. OO 
~ TOnenre MMT OOrD=" VA AC BUM ST 
a oeoneuen esoetevpepueeeeeepues 
a) DOoOCSCoO DO GD GO GO GD 6D GD GD 60 6D 6D GD GD GD GD cD 
- [err e 
COODWOVOFNMAUMBDOWNCOO 
a ~ O-o mR OTONARMUOMNODR. OO 
(al Tne UPN TOOR.CO + VAAG- BUM ST 
4 peensn sorter eueeeueethest 
a) wooocoe @D G0 00 GD 60 GD 00 GD a0 60 60 6D GD.ED GD cD 
- rer ere 
= COO OVO FNOWUMBDBDUOCNO 
MOMMA O- NOT ONARR. WOWNOR. Tr O 
vYoeeree rare ee oer eee eee 
‘ oetonensd a 
MMODOOOSO OD GO aD 6D 60 GD GD 6D GD 6D 6D GD GD aD cD cD 
rrr rr — 

=z & 

oo ~ tS COO DOONWNDWUMDODOONO 

mn oo NO TACO iva) ~OSTANWGRR. WON OR. TO 

7 F TITTEtiit © aria ore henge GOm ee et ere A 

‘ 
oo oo MMODDOOCO Oo QO GO GD GO GO 6D GD 6D 6D 60 0D 6D. GD GD cD cD 
rrr rere - 
= & 

Oro. NO ON wn ONOOCONTDUMMBDOOWS 
werner e sys rn z #FNAOBMOOCO OC RF SAAN BON Brahe 
IORCRCRC RCC RO RCRCIR RCC ROM Co aca CR PTTT PTT Tee 

4 oeoepepoeenugne 8 oeeenetbe a Om) 0 4 
ws OUT DOMOO TST OMADDOCOD 8D 8D ED OD GO 4D aD aD GD aD aD GO GD a0 GO CO 
L£EEC LL LOEOLMWCOMWCOMWCOM KEK EKO KE” - rrr rr -- 
RRRRRRARRVRAVAV_VABVVaeazVez az RRRRRE nes 
NPP DODOODOODONOCDAAOCOONDA & uN Re WORMS OYSAANARNOONSN Io 
-NOMNOO ONS MA —-DNOTANRORAWVOCaRTA FB OC mMoaonnno voy WA Ne ee ew ey oe 
TET TTT TT ET CEEEE ET ELITIST ELA TTTTT TTT eit eee ee 
0.60 G0 GD 60.60 GD. GO GD GO 20 GD. 2.60 GD GD GD GD GD GD GO 09 60 60 — ON1GD G0 1 O O60 O.00 wF AF AF AF WF wF OGD GOGO GD GD GO. GO. GD. GO GO GO 00.40 
- - 
@ ca 
VNITNOPF OVUM SNOOP. o8-2a, Ses ” sz = 
VMN ST TTT TTT ITITOMNMAMNNN ON CWE Ow ooo ws 
Ree eR eR eR eR ee ee ee ee ee ee eee ee ee OO aaa Ww " 
YPANMMMVYVVVVNMVMVMVWVVNVNNNMNNYY YY} rr Oem za > 2 
ee eT ee a > 


Cet el eel cel cet el en ee ee ee 


8-446 


8-446 


8-446 


8-469 


8-469 


8-469 


kK 
8-469 


2 
8-469 


8-469 


8-469 


8-469 


8-469 


8-526 


8-526 
SEQ 0229 


| CZRMRAO RMOS/3/2 DU POR TST 1 


SEQ 0230 


 . 
E S-21 


+01 11-APR=80 14:26:10 PAG 


MACRO v03 


| CROSS REFERENCE TABLE (CREF v01-05 ) 


NNONTINODDOWNODODOWNO we 
SONONOKOKRNKMOWNORDOK KO 
oOOr-DODOO eVUAGO- BOE ow) 
#teeecepeeece epee ee ene ts ‘ot 
COCcoOcO COCO GO GOGO CO GOGO COCOCOCOGOGD GOO 
= 
NNONITNDDONUNCDOMOWNO Ds 
ON ONASRAORMNKEMOOCOROr~-, —h 
OOOKRK WOO sev Ae-er|Gaat om 
'#eteeceecepeceeeeeeness ‘st 
amococo ap coco ao cD ao cOaD COCO GDCDCOGD «6G 
ONONT TODONUNADOMOUNSCHA 
ANDODNANAKRMKMOOOr OF MN 
MWOORKMDWOOH = -eV UNAS Bt mM 
#seeseeseeeepeeesvpeugty ‘ 
eococo aD coOacO COCO aD coco COG GOGO GDGD «6G Oe 
7 
ONONITTDODONUNCDMOUNSCA Ov 
ANODNANAKRMAKLMOOCOr. Or OA 
MOORE DOO eV HU AGS Ot «-@B 
'#eeepeeeeteuesep peeps ‘st 
cocoa co ao coco aD cOaOGOCOGDCDGDGD «6 6a0 cD 


toeepeeceetveever 
0.60 00 00 GO 60 60 07 60 G0 60 GO 00 G0 G0 G0 cD 


ws 
ONMNOVT FTO OMOBVUOMOAADUAOcucy 
NONOEAPMNMOWVDON— OO Fr To 
WOOPR-P-FR-COD ss eV VA AGO EM: 
#esecepeeepeeeepeeeeceeenea 


af 
WOMVOVNT FOOMBOWVDOMODNAHcucy 
NONOAARNMOMNDON— A TSR AO 
WODOR-K-ECOO es eV VA AGO Cate 
#seeceeeeeepeepepeeeuueeeses 
@0.60 60 GO 60 60 G0 60 GD 60 60 60 G0 60 G0 cD 00 60 a0 00 


WDNVNOCNTIMNOM OPN DmMaadruraruru 
NONOUMAR MMMNWUDWON— AOR. HAO 
WO OPR-P.PR. COM VVAACG-O-@aitue: 
#eseeesepeeseceeeeeseeeebstpeue 
@O G0 GO GO GO 60 GO GD G0 00 GD G0 6D GD GD uD GD GD cD cD 
Ra =“ «* 
WNOASNTNOMOVNDODAOUuNUA Ow 
VLONOMA PR NMNND — Ve OORAKR 
WOOR-PF-F- COO -- VV UN AGO Oatrue 
#eseeepesepeeeceeeeeeseeue 
O60 G0 60 60 60 60 00 00 00 00 00 00 00 0D 00 00 cD aD aD 
* 
OWOMOOMITNODOUNADDWONMNUAOMWw 
NON OUNAER.ANPR NE MOMOC ORK KR 
MOOOR-FR-CDODD +s eV NAGS: BAdiruc-: 
#eeceeepeeeepesepeeeeeenans 
0.00 00 60 00 60 GOD 60 G0 60 00 a0 G0 60 G0 GD G0 GD a0 cD 
ONMNOONTNODONADDONNO hw 
NON OVMARNP- NPE MOMOC DOP. Br 
WMOOOR-F-CODD s+ eV HAG Amor: 
#teeceeeceepteeeeseeeaeeegea 
@O G0 G0 GO 60 G0 60 G0 GD 60 a0 60 6D 00 G0 G0 60 60 .0 aD 

= 

Vv 

a 

< 

2 


SEQ 0231 
10-13 10-13 10-13 10-13 10-134 


| 
10-13 


2 


-80 14:26:10 PAGE 
10-13 


MACRO V03.01 11=APR 
5-0 5-0 5-0 
10-13 10-13 


5-0 


CROSS REFERENCE TABLE (CREF v01-05 ) 


| CZRMRAO RMOS/3/2 DU POR TST 1 


ONnOOMO Ww SOOoOuNOSC OM 
DNUNOSO—- w ce~orouovow 
Treats Y PITT LTTE PS 
cococOccoam a @O 00 c0 00 co a0 aD a0 a0 
oONOoOOoOmMaO wo oowrr OOM 
ooONnnNd=—- Cr e~owowrvuow 
MOO-Ae- Oe NUNUMMFNOO 
seepueees ‘es seepepeceeueee 
Mcacdcadcda awa @O 00 60 00 00 00 00 c0 00 
NNOOMO NO oowrnr OOrWN 
TOMNNO,- nv KK OwvoOoruorn 
MOO -Ac- wot NNUUMIM TOO 
seeuene Om) #epueetees 
@mcacowoc0nnm awa a) G0 G0 00 00 00 G0 cD cD 
NNDWOMO ww ~mwowr oom 
TFTOANnOO wo e~Oowowruory 
MOD:--Ac- DOE HK—NUMIM TOO 
senpoeeue it eepreupeepes 
COCOCOCDGDGD -cOCD 00 00 00 60 060 60 60 60 00 
NNDOMO TO Kowuroonw 
TOAnoo Ao wor-ow owruor 
MOD--Ac- nB H—NVUMIMFTNOO 
otenpoeeve 88 eeepeupesupees 
eococD co cOGD coc 0 00 00 00 60.0000 cD cD 
~wROMMOO cut ~Kowwowonon 
ONE MOO WO or-owr ow om 
—WMO- he ne — NCU) Fino 
oeeues se oeupeupenpeest 
eoOcococoOCOSD 600 cD 00 00 00 cO0 cD cD cD cD cD 
~wKOMMOO cut ~Komvowonown 
ONEMOO OM or-ow Ow omy 
—wNo ne nc. H—NNMIM ST TOO 
oeeues ‘os eepeuurpene 
eococoOcOacDCD 66aDaD @0 00 00 60 60 G0 00 00 co 
-OTMaOowdowow ~-ONNOOCONMm 
ONO MadudoOo-— or-oowowronru 
—MN = VAZOe: HK—NNUM STOO 
oenpeeueuvuete eeeuutepenea 
0 00 60 G0 60 60 60 cd GO 0 GD GO 60 0D 60 GD cD GO 
~ OTMOondmdooed oowwvowocow 
ONSMAdwdaNe WEA OT Owe 
—MN Vv a<spe- HK—NNNM ST TOO 
oeeunpen 1 oetpteueeees 
00 00 G0 G0. G0 cD 00 c0 cD 00 00 60 G0 60 cD cD a0 60 
HOUMDUDOOCOSO Aowvowooeorw 
MUNK AUMMNO WRAA OST ONO 
HMR OO se ANG: HUN ST TNO 
eevee uuees epee eueeaesn 
@D 6D 0D 00 60 60 GD cD cD OD 60 0D 60 00 0D cD 0D cD 
Oa OVNDNDOOCOSO NMONMNCOCON 
MANOR UMNO MEAD OT OO 
eNO ce ANC: H—NUNIIM TF TNO 
oepeepueeuees eeepupeupeene 
0 60 GO GD 60 6D GO. GD cD 0 6D 60 60 cp. GD GD G0 cD 
NM ODOOCOMANHNDWODOVUCD OW WOMVNCoOOOCN 
HS NVOONOVFONDVOO OO MA-OCOOCOOMO 
PT TPR ITT TET IETS PP TTT TTS 
CO acoOac@acDaDaCOaOaOcCOaDaDaOGD aad adadadcocoaDaDaDeD 
R 
owe w SCOR NODOCMMUR.UOMNDADDOOD OW KROOMOCOEO ON 
AOS -ON ™ ae tae ity pte ee fe he nr — KEK OOOONO 
TTP PEEPS TTP TTT ee TAPE Lites tee Le EEPETTTS? 
‘ 
Td SDOOCOCOOCOCOCSCSCO SY FIT T DODD DMaMaMCMeOsw0s awa daaccocdcoccOccd 
or35Sr eK Ker er Or eK 
RRVRRBRBVVABVBVAVVVBVVBVBe RE 
SH SAAA KAMA AM ee MOK NON SH OOMNOSSS-NS Les Sesse 
—-DoOOCCOOOCCOOCOOCCOOoCCooOOoOOCOoONC en-rkm BO RV Sab calrursnunh ONS 
PEP PPP PPP PPP ET ETT TP RT ET UREN UTEP EP EEE E LEED 
FPF FSGS STFS TST TST TT TT OMDWWOWOD ~7 WOW COW 0 W OD ws 0 WDM DODO Wa 
vet Or vowadaoworwa-- < 2 
atatut 44 -) 4-1-1 1-4-4 4°4-$- te Pa = Sa 
Yet ZOaecetowdtvaer>> ere eae O-v rw) < Lo 
ZVOWWWEeNNe ee GWW3ssB SGaaQ —w ce Bx 
a arr tar te er a er ere te te tL pete tes -! owza 
ee eee se ee ee <a wuwvu w YMOuuww 


SEQ 0232 


2 


N 
-80 14:26:10 PAGE M-2 


MACRO V03.01 11-APR 


CZRMRAO RMO5/3/2 DU POR TST 1 
| CROSS REFERENCE TABLE (CREF v01-05 ) 


| 


DWDVTMODMBDBVUBDMAdBONNO 
WNL NFMOMOOVNOCr. aor 
Or DOAO ss eV HAAG O- Ot 
@#peeepueeeeeeeseeve tt 
0 G0 60 00 00 G0 60 00 00 60 00 00 00 G0 00 00 
WMMTNODMBDBVUBMBDBoOwVga 
DWNAKWNFMOMBMDONOCR. OM 
OP CODD eV VA ACOSO 
@#evepeeceupeepeeetees st 8 
600000 00000000 60 00 00 00 00000000 00 
OMTNDOMBDBVUDMBDOWVCO 
NUP ARMOCUBDBOoOWOCr OM 
Or-F-DWOO = -**VVA ACC Bt 
s#esepeeeee ee tb eee 6 6 
0.00 00.00 00 00 00 60 00 G0 G0 G0 G0 G0 cD G0 
OVNTMDBDOMDUDMadoOowoce 
DOK OP-MOr-DOWOr- OW 
OPr-f- COCO ++ ses VA AGC: Ot 
#eseceeseeeeceeeeesnees# 
00.00 G0 G0 60 G0 G0 GO G0 G0 G0 60 00 G0 cD a0 


OMT TFT DOM OVOMBDOWVNCO 


Owes WOM Orc 
NOU MNnr 

OP-F-COGOO® «+ ++ +e V 
#eeeeepesss 


8->03 


r- ——— a —- ~ 


| 3 
RELEAS 4-211 = B=342 8 =360 8446 $446 8469 8-469” 8-526 8550 «8602 «86258650666 ocato 598 


3 


C 
-01 11-APR=-80 14:26:10 PAGE M-3 


MACRO v03 


CZRMRAO RMOS/3/2 DU POR TST 1 


CROSS REFERENCE TABLE (CREF v01-05 ) 


SEQ 0234 


8-<22 


8-702 
8-260 


8-:56 


8-666 
8-792 


8-650 
8-772 


10-13 10-13 10-13 10-13 10-13 10-13 10-138 


10-13 


8-792 8-792 


8-772 


8-772 


8-718 


8-360 8-700 


10-6 


8-A92 


